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Artikler, annoncer eller programmer 
der ønskes optaget i bladet, sendes 
til Henrik Gi 1vad eller Preben Lund. 
Bånd og disk sendes retur. 

Leder 

Her ved juletid bliver alle folk 
så sentimentale, hvis j eg også 
havde veret dette ville jeg havde 
skrevet om hvad vi har opnået i år. 
Lad os i stedet se fremad. Mange 
computertidsskrifter har altid 
skrevet at MSX er død. Dette passer 
ikke, en computer er først død når 
der ikke mere kommer programmer og 
hardware til den. 

Softwaresiden ser i øjeblikket 
sær-deles positiv ud, behøver jeg 
nævne folk som fx. dem bag K0NAMI. 
Jeg kan nævne et pudsigt eksempel, 
et program jeg engang købte havde 
MSX version på A siden ag Commodore 
version på B siden.(HI-HI) 

Vi ønsker, tidspunktet tro, jer 
alle en glædel ig jul og et godt 
nytår. > 

HUSK, næste kommer i Februar. 

Henrik Gi 1vad 
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Tryk : Foto offset. 

Forside udført af :John Mortensen 
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*-*--**! SVI 326 CP/M 


ALLA MSX#ARE ***-if- 


UI 328 C P/M 
OLOR (U I DTH 40) | 

Da jeg i sin tid tik mit tørste 
diskdrev og begyndte at køre CP/M, 
tandt jeg hurtigt ud at at man ikke 
kunne ændre tarverne på skærmen. 

Min skerm var dengang en monokrom 
monitor der ABSOLUT ikke kunne enes 
med de tarver computeren starter op 
med. Dette problem tørte til at jeg 
konstruerede tølgende rut ine der 
KUN er ment son en sådan og ikke som 
en indtørsel i Pascal. 

Problemet med SVI-328 er at den 
tørst tår 100% udbytte at CP/M når 
den også har et 80 tegnskart, idet 
at det ikke er særligt mange 
programmer der kan køre i 40 tegn. 


WRITELN(’ White 15’)5 

WRITELNJ 

WRITE (’ Choose Foregr-ound : ’ ) ; 
READ ( FC); 

WRITELN; 

WRITE !’Choose Background :’); 
READ (BC); 

DATA:=FC * 16 + BC; 

PORT (.129.):= DATA; 

PORT (.129.):= 135; 

WRITE (CHR(12)); 

END. 


Programmet er skrevet i PolyPascal 
at mig selv tor 2-3 år siden, det er 
taktisk mit tørste pascal program! 

Hvis i ikke har en PolyPascal kan 
i henvende jer til SVI-BIB og der¬ 
igennem tå C0L0R programmet i en COM 
version. 

HUSK!, programmet virker kun på 
SVI328 og IKKE i 80 tegns mode. 


PROGRAM COLOR; 

VAR 

FC, BC, DATA: INTEGER; 

begxn; 

WRITE (CHR(12)) ; 

WRITELN(’Program at Henrik Gi 1vad’); 
WRITELN(’Spectravideo 328 #C0L0R*’){ 


WRITELN (’-’ ) ; 

WRITELN(’ COLOR NR.’); 

WRITELN (’--- - ’>*, 

WRITELN(’ Black 1’); 

WRITELN!’ Medium Green 2’); 

WRITELN(’ Light Green 3’)? 

WRITELN(’ Dark Blue 4’); 

WRITELN(’ Light Blue 5’); 

WRITELN(’ Dark Red 6’); 

WRITELN(’ Cyan 7’); 

WRITELN(’ Medium Red 8’); 

WRITELN!’ Light Red 9’); 

WRITELN!’ Dark Yellow 10’); 

WRITELN(’ Light Yellow 11’); 

WRITELN!’ Dark Green 12’); 

WRITELN!’ Magenta 13’); 

WRITELN!’ Gray 14’); 



HEJ ALLA nSKARE 

Skriv in detta program, vrid upp 
volymen och sætt på bandspelaren 
(Utan kassett i.) 

10 REM DISCO 

20 cls:def int a-c 

30 ON STOP GOSUB 100:STOP ON 
40 A=INT(RND(1)*255+.5) 

50 B=INT(RND<1>*255+.5) 

60 COLOR b,b,b 
70 OUT 170,A 

80 FOR C=1 TO 100*. NEXT C 
90 GOTO 40 

100 COLOR 15,4,4:END 
TIPS: 

Om du vi 11 læsa av CAPS LOCK kan du 
anvænda PRINT INP(170). Om datorn 
svarer: 

90 ær MOTOR OFF och CAPS av. 

26 ær MOTOR OFF och CAPS på. 

74 ær MOTOR ON och CAPS av. 

10 ær MOTOR ON och CAPS på. 

Hælsningar tr-ån JOHAN BERGMAN i 
Lidkøping och hans SVI 728. 












•*-*** KONTINGENT 1906 * SKAF NYE MEDLEMMER **** 


KONTINGENT 1988 
VIND 250kr. 


Far fortsat at få bladet tilsendt i 
1988 skal du indbetale kontingent på 
165:- Kr. dette er en prisstigning 
på KUN 15 Kr. i løbet af 3 år. 

(PORTO’en stiger jo pr 1.1.1988) 


Før du går ned på Posthuset med den 
vedlagte giro-blanket, beder vi dig 
Checke at du har skrevet følgende 
informationer på det. 


* Pris 165:- Kr. 



SKAF NYE 
MEDLEMMER 
DET BETALER SIG 


* Navn, Adresse, Tlf. 

3f Alder, Computertype (r), udstyr. 


Kan du skaffe klubben nye medlemmer 
har du muligheden for få bånd eller 
disketter i præmie. 


Hvor mange år har du haft com. ? 
# Hvad var bedst i 1987 ? 


Du må ikke selv være ’skaffet’ af 
andre! 

Du skal selv være medlem i 1988 ! 


* Hvad var værst ? 

# Hvad syntes du generelt om bladet? 

Hvilke(t) programmeringssprog 
bruger du selv ? 


Man kan altså ikke rae1 de hinanden 
ind i klubben og derved opnå 
dobbelt præmie. 

Ved et nyt med 1em forstås en der 
ikke var medlem i 1987 ! 


-S- Ønsker og/el ler ideer. 

# Hvilke områder interesserer du dig 
mest for? 

fx. Spil, Nyttebrug, Programør, 
Profesionel brug. 

Vedrørende ’Ønsker’, så skriv både 
hvad der mangler og hvad der har 
været som du stædig vil læse mere 
om. 

HUSK, dem der giver sig til kende er 
dem der præger bladet i 1988. 

Du kan iøvrigt hele året rundt sende 

os breve. 


Præmie : 

Pr. indmeldt medlem kan du få 

1 bånd 
El ler 

5 stk. 5 1/A” disk 
Eller 

2 stk. 3 1/2” disk 


Melder du et med 1em ind skal han 
selv skrive dit navn og medlemnr. 
på bagsiden af GIRO -kortet samt 
hvad du ønsker som præmie. 


S år (Altså 1988) vil der blive 
foretaget en LODTRÆKNING imellem 
alle dem der har betalt kontingent 
inden søndag d. 10 Januar 1988. 
Altså, har du betalt før d. 10/1 
1988 vil du deltage i lodtrækningen 
om 2 GAVEKORT a’ 250 KR*.-. 

Disse gavekort gælder hos DATACRAFT 
hvor man så kan købe software el.a. 
for 250 DKr:- 









SV/I -BIB * LYDE TIL LYDFOLKET •*•*-**- 


X d 

© sst 0 E3 □ c3 

SVI BIS ®r KUN til SVI 318-328 

SVIIIIB8* m POSTGIRONR. er: 

4077383 

Bestilling af programmer gøres på 
postgiro hvorpå der skrives hvilke 
programmer du ønsker,samt om du vi 1 
have disk eller bånd. 

Husk også at skrive din egen adr. 
tydeligt helst BLQKBQQS IAMEEL 


PRXSER 

Bånd - 25kr. 
5.25” Disk - 25kr. 
Pris pr. program - 10kr. 
Pris pr. programpakke - 15kr. 
Udlisining af program - 5kr. 


Programpakkerne er lavet på den 
»åde at man loader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp af en meny 
hvilket program man ønsker at køre 
derefter kan man stoppe og vende 
tilbage til Bienyen ovs.ovs. 

HUSK når I bestiller programpakker 
at skrive hvilken katarogi I 
ønsker det pågældende nr. fra. 

Programmerne bestilles hos: 

Per Unde,'ir 1 i en 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBJB sker på samme adr. 

Det er jo sådan at vi STADIG giver 
et bånd eller disk som betaling for 
jeres programmer. 

Angående programmer i SVI BIB se 
gaale nr. 

Hilsen Per 


LYDE TIL 
LYDFOLKET 


Hermed nogle nye lyde til lydfolket 
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LYDE TIL LYDFOLKET * BREV FRA KIM -X--*-** 
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BREU FRA 
KIM AXELSEN 


Kære medlemmer. 

Jeg vil gerne spørge, om i kunne 
hjælpe mig med et tipsprogram, da 
min far spurgte om det kunne lade 
sig gøre. 

Derfor skrev jeg hertil i håb om 
hjælp. 

Venlig hilsen 

Kim Axelsen 
Carit Etlarsvej 4 
7000 Fredericia 


Hej Kim. 

Jeg kan _ fortælle dig at to friske 
redaktionsmedlemmer allerede er 
igang med et sådan projekt, det ser 
ud til at de gør et grundigt stykke 
arbejde, for de har nu brugt 1/2 år. 

Data-T ips-Kuponer er ifølge aine 
oplysninger nede i en pris på 130 
Kr. for 500 styks. Da DTK kom frem 
for ca. 2 år siden ilede jeg straks 
ned til min lokale købmand og 
bestilte 500 stk. Indtil nu har jeg 
brugt 50, 48 til at justere program 
□g printer og 2 som blev afleveret. 
Den ene af disse blev kasseret og 
på den anden fik jeg en 5’er. 

Problemet er at ALLE Krydser 
SKAL passe ind i deres respektive 
pladser, ellers kommer tipstjenes¬ 
ten bare og annulerer dine 13’ere. 

Man får egentligt først glæde af 
sin computer, i tipssammenhænge’ 
hvis man tipper system tips hvor 
der er mange rækker der skal 
skrives ud, de fleste nuværende 
tips programmer er baseret på en 
slags RANDOM udfyldning af kuponer, 
dette er slet ikke tilfredsstil¬ 
lende . Jeg kan i øjeblikket ikke 
love dig hvornår dette SuperDATA- 
tips-program kommer, men dit brev 
har nak sat fut i processen. 


H.G 
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■IHHHf SVENSKA SI DAN 


SUENSKA SIDAN ! 

Hejsan! Nu dyker vi upp igen med 
den svenska si dan. Den hår gangen 
tånkte vi ta upp hemligheten bakom 
spelti11verkarnas ( KONAMI o.d ) 
framgångar, nåmi i gen MAMETABLE ! ! ! ! 
Vad år då NAMETABLE for någonting? 
Ja, man kan val saga att det. år 
en ruta, uppbyggd på præcis samma 
sått som en 8x8 sprite (och hur en 
sådan sak ser ut vet val al la?). 
Ski 11naderna år att: 

1. man suddar ut underlaget. 

2. man kan ha 16 fårger i en ruta. 

3. man kan ha fler ån 4 i bredd. 

4. man i nte kan flytta en punkt i 
taget utan en 8*8 ruta i taget. 

5. man kan ha hela 768 olika rutor 
på skårmen samtidigt!! 

Hur fungerar då detta underværk??? 1 
Jo det fungerar som så att skårmen 
i hogupplosningsmoden (screen 1) 
redan år indelade i de hår 768 st. 
rutorna som nåmndes i punkt 5. 
Det ånda man ska gora år att ge 
rutorna ett beståmt utseende samt 
passande fårgsåttning. For att det 
hela ska fungera kråvs dock att 
man i nte har rut nummer hcigre ån 
255! Va, fanns det i nte 768 rutor? 
Jo men då NAMETABLEnumret bara får 
vara en byte stort (dvs 0-255) så 
har man lost detta på så sått. att 
man del at upp skårmen i tre lika 
stora del ar, dår den overstå 3-d.je 
delen har 256 rutor, præcis som de 
två undre. Dessa rutor kan flyttas 
omkring p å s k årnien o c h år al 11. s å 
■i nte bundna till sin f odel seart. 
Det finns dock ett stort MEN, for 
dessa rutor kan bara flyttas runt 
i den tredjedel dår de var ti 11- 
verkade. Ruta nr 0 befinner si g 
1 angst uppe till vanster av sin 
tredjedel, rut a nummer 1 b efin n er 
sig p reci s ti 11 h o g er om r ut a 0 
o.s.v! Det som h ån der når man t ar 
och såtter ut ruta nr 1 på någat• 
annat stål le ån den var skapad år 
att den kopierar det stalle dår 
den skapades o c h piacerar k opian 
på onskad plats på skårmen. Då det 
år en kopi a, så måste ori gi nal etj 


s j å 1 v k 1 a r t. b e h å 11 a s, v i 1 k e t b e t y d e r 
att man i nte får sudda skårmen da 
o r i g i n a 1 e n f o r s v i n n e r ! ! D å m a n h a r 
satt ut. en NAMETABLE kan man i nte 
anvånda DRAW, LINE, F'SET etc, då 
cl e s s a :i. n s t r u k t. i o n e r i n t. e k o mmer 
a 11 g 6 r a cl e t d e s k a gora. E f t e r cl e t 
att al la de original man vil 1 ha 
med år definierade så kan man am 
man s a v i 11 t a o c: h så 11: a IM AM E T A BL E 
rutorna (kopierna) ovanpå skapade 
o ri gin a1 ut an a11 dessa for svin ner 
da de ligger kvar under kopi erna. 
D r i g i n a 1 e n k a n m a n t i 11 v e r k a p å 
olika sått„ Man kan anvånda olika 
g r a f i k i n s t r u k t i o n e r s å s om C 1 R C L. E , 
e 11 e r a n v å n d a s k å r m a d r e s s e r s o m 
finns for får g och kontur. 1 det. 
exernpel som vi tånkte illustrera 
NAMETABLE med an vånd er vi adresser- 
ti 11 att definiera utseendet. 

Hur placerar man då NAMETABLE på 
skårmen? Jo, man anvånder instruk¬ 
tionen VF'OKE. Antag nu att orgina- 
len år definierade och att du vi11 
såtta ut ruta nr 1 på ruta nr 32. 
For att gora detta måste vi veta 
start adressen på nametable. Denna 
år hexadecimalt 1800. Dm du nu 
skriver VF'OKE 84-11800, 1 kommer ruta 
nr 1 på ruta nr O.Låt oss nu åter- 
g å till det får st. a pr ob lernet. Det 
år qanska enkelt« Du skriver bara 
VF'OKE m 1800+32, 1 „ En ke 1t, e 11 er 
hur? 

L å t oss nu ta e11 pr o g r amexemp e1 s 

10 SCREEN 1 
20 FOR 1=0 TO 7 
30 READ AH 
40 rem monster 

50 VF'OKE I, VAL ( " 844" +AH) 

60 REM FaRB 

70 VF'OKE 84-12000+1,84461 

80 NEXT I 

90 DATA FB,FB,FB,00,DF,DF,DF,00 

100 REM UTRITIMING 

110 FOR 1=8441800 TO 84418FF 

120 VF'OKE 1,0 

130 NEXT I 

140 GOTO 140 

Detta var ett exernpel på hur man 
k a n r i t a t e g e 1 s t e n a r p å d e n f o r s t a 
t red j e cl e 1 en av s kår m e n. 

14op p as a 11 n i h ar lår t er n åg o t om 
n a m e t. a b 1 e. N å s t. a g å n g s k a v i t a u p p 
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MES JOHNNY 


**** 


det 

rnye: kel 

anvai 

idbara 

kommandot. 

BOT c: 

(Det 

ar vå 

. li te 

val svårt. 

An or 

ym anm. 

) 



Tae: i-: 

f o r d e 

n hår 

jangen 

och må øra 

o var 

ners di 

skar d 

. skas. 

■ 

J oa k 

im & lia 

gnus &. 

li ag nu 

3 & Joakim 


SLUT ! 



REDAKTIONSGRUPPENS MORGENBØN. 
Fader vor 9 du bob @p i datanaten. 
Helliget vorde dit operativsystem, 
lad komne en harddisk. 

Ske din vilje son på skærmen, 
således også i printeren/ 
led os ikke i system-fej 1, 

Bien fri os fra de lange loadt i der. 

og tilgiv os vore taste-fejl, 
selvom vi aldrig tilgiver andre for 
programfej 1« 

Thi dit er systemet, 
og magten over redaktionen. 

I evighed. 

<ENTER) 


MUSIK MED 
JOHNNY B„ 


MUSIK 


Hermed igen et lille musikstykke 
til de alm. MSX brugere, denne gang 
har jeg valgt et stykke der hedder 
Cavatina skrevet af S. Meyer og du 
kender det udmærket idet det er lig 
med Themaet fra The Deer Hunter. 

Så fat blot Computeren og gå 
igang. 

10 'JOHHNY B PRÆSENTERER 
20 'MUSIK AF FORMAT 
30 'GOD FORNØJELSE MED 
40 'INDTASTNINGEN 
50 ' 

6Q I ********************* 

70 ' 

80 C0L0R15,1,1:SCREEN2 
90 DEFUSR=&H41:A=USR(0) 


100 A$="SLAP NU AF MAND." 

110 B$="OG NYD DEN DEJLIGE MUSIK" 

120 0PEN"grp:"AS#1 

130 X=128:Y!=LEN(A$)*4:Z=X-Y!:R=X+Y 

I 

140 Q=LEN(B$)*4:W=X-Q 
150 LINE(Z-5,100)-(R+3,110),4,BF 
160 LINE(Z-7,9 8)-(R+5,112),4,B 
170 PRESET(Z,102):PRINT#1,A$ 

180 PRESET(Z+l,102):PRINT#1,A$ 

190 PRESET(W,150):PRINT#1,B$ 

200 PRESET(W+l,150):PRINT#1,B$ 

210 DEFUSR-&H44:A=USR(0) 

220 PLAY"V8T125L205B.","V8T125L203E 
.","TI25V8L804EG+B05E04BG+" 

230 PLAY"B.","D+.","D+G+B05D+04BG+" 
240 PLAY"L16ABL806C+L2C+","C+.","AO 
5C+EAEC+" 

250 PLAY"L2C+.","F+.","04A05C+EAEC+ 

il 

260 PLAY"L1605ABL806C+L2C+","B.","0 
4EA05EAE04A" 

270 PLAY"L2C+L8C+05L16BA","B.","D+F 
+A05D+04AF+" 

280 PLAY"L2B . " , "E . " , "EB05D-fG+D+04B" 
290 PLAY"R2R8L16AB+","E.","EG+B05DL 
404B" 

300 PLAY"L2G+.","A.","L8C+EA05C+04A 
E" 

310 PLAY"F+L8F+.L16E","D."."DF+A05C 
+04AF+" 

320 PLAY"L2F+.","G.","03B04DGBDG" 
330 PLAY"E.","C.","CEGBGE" 

340 PLAY"L1EL4F+D+","02B.03B.","03B 
04F+ABAF+D+F+ABAF+" 

350 PLAY"L2E.R2.","E.R2.","AF+G+EG+ 
B05E04B05EG+B06D+" 

360 PLAY"L206E.","L204C+.","04G+B05 
EG+E04B" 

370 PLAY"EL8EL16D+C+L8C+L16D+EL2D+" 
,"L1F+L2D+","F+B05EG+EL204BL805A+F+ 
04B" 

380 PLAY"R2.","03BR4","03B04B05D+G+ 
06C+05B" 

390 PLAY"L205A.","03L2E.","03A04EA0 
5C+04AE" 

400 PLAY"L4ABFt","B.","D+FfA05D+04A 
F+" 

410 PLAY"L2G+.","E.","03B04EB05D+04 
BE" 

420 PLAY"R2.","E.","03B04EB05DEF+" 
430 PLÅY"L2G+.","A.","04C+EA05C+04A 
E" 

440 PLAY"A.","04D.","F+A05C+F+C+04A 









io 


*-■*** MUSIK MED JOHNNY B . * MSX-BIB **■** 


450 PLAY"A+.","E.","EA+05C+F+C+04A+ 

II 

460 PLAY"B.","D+.","F+B05D+F+D+04B" 
470 PLAY"B.","D.","F+B05DF+D04B" 

480 PLAY"06E.","C."."EGB05E04BG" 

490 PLAY"L404F+06L8CR805BR806CR4.", 
"L403BR2R2.","06ECR8DR805BR806CR805 
AB06C" 

500 PLAY"L806ER805CR8DR804BR4.RI"," 
RI.R2.","05ECR8DR804BR805C04AF+EC03 
BAGF+GA" 

510 PLAY"L203A+.","L804C+E05C+F+C+0 
4F+","R2." 

520 PLAY"L4B.F+.","DF+05DF+03B04C+" 
iino »» 

530 PLAY"L204D.","03A-04B-05D04B-F" 

,“R2." 

540 PLAY"L803G-B-L2G-","L4FL8E-03B- 
04E-F","R2." 

550 PLAY"04G.","D-B-05E-GE-04B-","R 
2 " 

560 PLAY"L803B04E-L2E—","L4B-L8A-E- 
H R2 M 

570 PLAY"03G+.","L204B.","L803B04EB 
05E04BE" 

580 PLAY"G+.","BL8B.L1605C+","03B04 
EB05E04BE" 

590 PLAY"F+.","L204B.","03F+B04D+AD 
+03B" 

600 PLAY"F+.","BL8B.L1605C+","F+B04 
D+AD+03B" 

610 PLAY"E.","04L2B.","G+B04DG+D03B 

II 

620 PLAY"A.","R2.","04B05C+04AG+F+E 

II 

630 PLAY"F+.","E.","03A04AB05E04BA" 
640 PLAY"B.","L4EF+D+","03B04AF+05D 
+04BA" 

650 PLAY"E.","L2E.","AF+G+D+EG+" 

660 PLAY"R2.","R2.","BG+B05EG+A" 

670 PLAY"F+L8F+L16E","D.","DF+A05C+ 
04AF+" 

680 PLAY"L2F+.","G.","03B04DGBDG" 
690 PLAY"E.","C.","CEGBE" 

700 PLAY"L1EL4F+D+","F+.B.","03A04C 
+EAEC+D+F+ABAF+" 

710 PLAY"L2E.","E.","AF+G+D+EG+" 

720 PLAY"R2.","R2.","BG+B05EG+B" 

730 PLAY"T100G+.","T10005C+.","T100 
L406D+L2E" 

740 PLAY"04A.","04F+.","L405D+L2E" 
750 PLAY"F+.","03B.","L8EL16F+G+L4F 
+E" 

760 PLAY"L103E","L404F+G+L2G+","L40 
4ABL2B" 

770 GOTO 770 



Månedens nyt i bib er programmet 
Snake Valley fra sidste nummer af 
finnen T. Mickelsson. Spillet, der 
både kan spilles af 1 og 2 spille¬ 
re, går ud på at hver har en slang- 
e, og det gælder så om at æde mod¬ 
standerens hale. 

Ønsker du at komme i besiddelse 
af disse og/eller andre programmer 
fra MSX-BIB er brugsanvisningen 
her: 

Du sætter dig ned og finder ud 
af hvilke programmer du vil købe. 
Derefter slipper du joystikket for 
en stund, går hen på posthuset, 
fatter et giroindbetalingskort, og 
skriver programnavnene på bagsiden. 

Priser: 


15 min. bånd 

- 25 

kr. 

stk. 

5.25" disk 

- 25 

kr. 

stk. 

3.5” disk 

- 35 

kr. 

stk. 

programmer 

- 10 

kr. 

stk. 


Et bånd kan rumme 8 programmer. 
En disk kan rumme hele biblioteket. 

Eks: 8 programmer på 3.5” disk 

koster 8 * 10 + 35 — 115 dkr. 

Programmerne bestilles hos: 

Kim Andersen 
Fundervej 32 
2610 Rødovre 
gironr. 7 50 87 00 

Jeres egne programmer sendes til 
samme adresse (der venter stadig en 
belønning i form af et bånd eller 
en disk efter eget ønske). 

Ki m 


Indhold i MSX-BIB: 
Se gamle numre!! 
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NU ER DET JUL IGEN 
Spil salges 
Thunderbal1 MSX disk 
World GoH MSX2 disk 
Wampire killer modul 

Pi nguin adventure MSX 1+2 modul 
Nemesis modul 
PICO PICD disk 
Og mange andre 

Brian Nielsen 

Dragebakken 130 

5250 Odense SV Tit.09 172653 


dXi 


Der er åben bart høj kurt på 64K 
ramudvidelser for også Lars Hansen 
Hundested vil gerne have et. 

RAM-Udvidelse til MSX købes. 

Må ikke vere Spectravideos da det 
er for stort! 

Prisen kan vi diskutere. 

Lars Hansen 

Hundested 

Tlf. 02-32 46 60 

DESPERAT LITTERÆR EFTERLYSNING. 
Bøsckerna “Red Book" och “Behind 
the screens of the MSX home camp.“ 
køpes, roychet bra betalt. 

Ring el ler skriv till: 

Christer Elfstrøm 
skersboda, stensj øn 
571 00 nessjø 
Sverige / tel: 0380-91312 


!9ønKiiifcafKig|Mec«iKi?jrø 



INTERESSE 
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SOFTSCROLL 
FRA JESPER 


De kommende sider er skrevet og 
programmeret a-f Jesper Schultz- 
Pedersen. 

Først kommer et DEMO program i 
basic, dernæst sourcekoden til 


maskinkoden. 

Sidstnævnte er så godt dokumenteret 
at vi ikke behøver skrive mere. 
Virkeligt -flot og grundigt arbejde. 


Red. 


; •* Softscrol1 rutine vs. 2.0 for MSX * 
i #■ Jesper Schul tz-Pedersen 11/10/1987 

5 


5 Inden rutinen anvendes, kan man blanke bufferen, ved 
g at fylde den med CHR$(0) , eller man kan kopiere det 
i tilsvarende areal i VRAM over, hvis man vil anvende 
; noget, der allerede er pH skaer-men. 

; Man skal ogsfl huske at fylde C0L0RRAM med for- og 
i baggrundsfarve for det udvalgte skaermareal, da man 
; ellers ikke ser ret meget! 


1 Vil man f.eks. scroll© linie to nedefra, er dens 
5 udseende defineret i VRAM fra #1600 til #16FF og 
S dens C0L0RRAM fra #3600 til #36FF. Vil man serolie 
i samtlige 32 tegn, giver det disse vaerdier i tabellen. 


I 

TPTRMIN 

#D100 

< 

Foerste adresse for tekst ) 

0 

9 

TPTR 

#D100 

< 

Initieret til TPTRMIN vaerdi ) 

a 

9 

ANTPIX 

#0100 

< 

(ANTTEGN-1) * 8 ) 

s 

i 

BUFFER 

#D800 

( 

Foerste adresse i RAM buffer ) 

a 

9 

VRAM 

#1600 

( 

Foerste adresse i VRAM ) 

• 

f 

BUFMAX 

#D907 

( 

#D800+(AMTTEGN)*8 ) 

a 

I 

BLIND 

#D900 

< 

#D800+ <ANTTEGN-1)*3 ) 

0 

9 

PIXMAX 

#06 

< 

6 pixel ml. tegn ) 


PIXCNTR 

#01 

< 

giver plot foerste gang ) 


ANTTEGN 

#21 

( 

Antal tegn at vise ) +1 


ANTLIN 

#08 

( 

Antal scan linier at scrolle ) 

i Det 

er muligt 

at scrolle kun med f.eks. scanlinie 


5 2-4 talt nedefra blandt de otte scanli nier man nor- 
i malt ser olier, ved at saette ANTLIN til 3 og BUFMAX 


! en lavere end normalt. Ville man scrolle scan linie 
i 4-6 skulle BUFMAX saettes tre lavere end normalt. 

; Scroll rut inen som saadan kan godt reallokeres, men 
; tabellen kan ikke uden videre flyttes. Omraader, der 
, reserveres til BUFFER og til tekst, kan vaelges 
» frit. 

; Tekst vil blive udskrevet, til rutinen finder en 
5 CHR*(Q) og derefter starte forfra. 

5 Rutinen kan anvendes ved gentagne kald via USR kom- 
5 mandoen - f.eks. d=usr0(0) hvor DEFUSR0 = #D000. Man 
i kan ogsaa kalde den via 0N INTERVAL. Altsaa styre 
i via BASICs interruptfunktion. Eller man kan lade den 
i virke ved at koble den ind i computerens standard 
5 interruptrutine. F.eks.... 


J 
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i POKE &HFDA5, kHDO: POKE 6tHFDA4, leHOO: POKE &HFDA3, 6sHC3 

5 Den kan saa deakt iveres med POKE 8sHFDA3, &HC9. 

i Ved sidstnaevnte metode kan det toere til crash om 
i siian afbryder et program med STOP eller ved program- 
I fejl. Brug kun denne metode, hvis alt fungerer! 

5 * BIOS STANDARD RUTINER/ADRESSER * 

LDIRMV EØU #0059 

LDXRVM EQU #0050 

CHARRON EQU MiBBF 

? * DATATABEL FOR SCROLL RUTINEN * 


TPTRMIN 

EQU 

IIE210 

TPTR 

EQU 

HE2I2 

ANTPIX 

EQU 

#E214 

BUFFER 

EQU 

#E216 

VRAM 

EQU 

#E2I8 

BUFMAX 

EQU 

#E2iA 

BUF 

EQU 

#E21C 

BLIND 

EQU 

SE21E 

PIXMAX 

EQU 

HE220 

PIXCNTR 

EQU 

#E22I 

AMTTEGN 

EQU 

IIE222 

SCANLIN 

EQU 

#E223 



§ # I MF 0 FOR BASICHEADER TIL BIN. FIL * 

9 


BASIC 

EQU 

#FE 

B 

> 

Bytefiag for binaer fil til 




O 

9 

BASIC. 

START 

EQU 

#D000 

i 

Faerste adresse for binaer 




B 

9 

fil. 


ORG 

START -7 

i 

Header til diskettefil saa 


BEFB 

BASIC 

? 

man kan anvende den fra 


DEFU 

START 

9 

BASIC og load© den ind det 


DEFW 

PGMSLUT 

0 

9 

rigtige sted. 


DEFW 

RUMADRS 




i 'A 'rt 'il''!? H i/ n'lvt!■!/?* K’tHtlHFltlHt Iv / lEv /v 

5 # HOVEDPROGRAM & 

5 KX 'lI'lf l t'lflt’lf'K'l HH Ht'lHHf#' 


PLOTCHK 

LD 

HL,PIXCNTR 

s 

§ 

HVIS PIXCNTR = 0 


DEC 

(HL) 

i 

OPDATERES DET 


JR 

NZ,SCROLL 

i 

BLINDE FELT. 

TPTRCHK 

LD 

HL,(TPTR) 

e 

S 

HVIS TEGN 0 CHR$(0) 


XOR 

A 

e 

f 

SAETTES TPTR = 


CP 

(HL) 

i 

TPTRMIN. 
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JR 

NZ,PLOTBEG 




LD 

HL,(TPTRMIN) 



PLOTBEG 

LD 

A,(HL) 

a 

9 

HENT TEGN (TEGNNR) 


INC 

HL 

a 

9 

TPTR=TPTR+1 


LD 

(TPTR),HL 




LD 

H, 0 




LD 

L,A 

a 

9 

FIND POINTER TIL 


ADD 

HL, HL 

! 

TEGNDEFINITION I 


ADD 

HL, HL 

1 

MSX- ROMMEN VED 


ADD 

HL, HL 

i 

FORMLEN: 


LD 

DE,CHARROM 

a 

9 

TEGNNR*8 ^ CHARROM 


ADD 

HL, DE 




LD 

BC, 8 

o 

I 

KOPIER TEGNDEFINI¬ 


LD 

DE,(BLIND) 

a 

9 

TION TIL DET BLINDE 


LBXR 


e 

9 

FELT. 


LD 

A,(PIXMAX) 




LD 

(PIXCNTR),A 



SCROLL 

LD 

DE,#FFF8 

i 

RECXPROKVAERDI AF 8 


LD 

HL,(BUFMAX) 




LD 

(BUF),HL 




LD 

A,(SCANLIN) 

i 

SÅET ANTAL SCAN- 


LB 

C s A 

i 

LINIER AT SCROLLE 

OUTLOOP 

LD 

A,(ANTTEGN) 




LD 

B, A 



CPASSXV 

SLA 

(HL) 

B 

f 

RUTINE FOR OVER- 


JR 

C,CARRY 

i 

FQERT PIXEL=0 

NOCARRY 

ADD 

HL, DE 

i 

(BUF)=(BUF)-8 


BJNZ 

CPASSIV 




*jfQ 

Jr 

TESTOUT 



CAKTIV 

LS 

A,(HL) 

B 

9 

RUTINE FOR OVER- 


ABC 

A, A 

i 

FOERT PIXEL—i 


LD 

(HL) , A 




JR 

NC,MOCARRY 



CARRY 

ADD 

HL, DE 

i 

(BUF)=(BUF)-8 


DJMZ 

C AKT IV 



TESTOUT 

LD 

HL,(BUF) 




DEC 

HL 




LD 

(BUF),HL 




DEC 

C 

a 

9 

NAESTE SCANLINIE 


JR 

NZ,OUTLOOP 



RAMVRAM 

LD 

BC,(ANTPIX) 




LD 

DE,(VRAM) 




LD 

HL,(BUFFER) 




CALL 

LDXRVM 




RET 

» ^ HH Ht MKKKX i nH H^ XXXXXXXXXXKXXXXKXKKKXXX * 
i # PARAMETRE TIL BASIC HEABER £ 


EØU 

&-START 

EQU 

ST ART+PGMLEN-1 

EQU 

START 

END 



PGMLEN 

PGMSLUT 

RUNADRS 
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100 ’ Initialiser program jBL 

110 7 

120 CLEAR 350,&HD000 
130 DIM Z,D,T,C*,Tf»(2) 

140 DEFINT A-Z 
150 DEFUSR0=fcHD000 
160 KEYOFF:SCREEN O:WIDTH 40 
200 * 

210 ’» MC - kode M 
220 ’ 

230 RESTORE 1530 

240 FOR Z=kHD000 TO &HD068 

250 READ C® 

260 POKE Z,VAL<"feH B +C$) 

270 NEXT 
300 7 

310 ’ Opret tekststrenge -H-& 

320 ’ 

330 T$ <01="Denne tekst viser scroll 
dr evet raed eri FOR-NEXT konstruk t i o 
n. Hurtig - men lidt huggende!„...■ 
B +CHR$<0) 

340 T®(1)="Denne tekst viser scroll 
drevet med BASXCs ON INTERVAL=? ko 
mmando. Hastighed kan reguleres.... 
8 +CHR^(0) 

350 T*(2) ='*Denne tekst viser scroll 
drevet direkte via standard interr 
uptrutinen i MSX. 50 pixel/sekund.. 
H +CHR^(0) 

400 ’ 

410 7 X-M- Initier grafikmode 2 &X- 
420 ’ 

430 COLOR 3,12,5 

440 SCREEN 2 

450 OPEN “GRP: H AS #1 

460 FOR Z-feH36Q0 TO &H36FF 

470 VPOKE Z, 8343 C 

480 NEXT 

500 7 

510 * X-jf Vis scroll med FOR-NEXT 
520 7 

530 DRAW H bm20,20 B 

540 PRINT#!,"Metode 1: Brug af FOR- 
NEXT" 

550 GOSUB 1100:T=0“GOSUB 1230:GOSUB 
1330 

560 FOR Z=1 TO 1800 
570 D--USR0 ( 0) 

580 NEXT 
600 7 

610 7 jBf Vis scroll med ON INTERVAL 
620 7 

630 DRAWbm20,36“ 


640 PRINT#1, "Metode 2: Brug af ON I 
NTERVAL" 

650 GOSUB 1100:T=l:GOSUB 1230:GOSUB 
1330 

660 ON INTERVAL=1 GOSUB 1010 

670 INTERVAL ON 

680 FOR Z=1 TO 1000:NEXT 

690 INTERVAL OFF 

700 DRAW s bm20,140“ 

710 PRINT#!, "Styr fart vha. ar guruen 
t t i 1 

720 DRAW"bm20,152" 

730 PRINT#1,"ON INTERVAL 
740 OM INTERVAL=2 GOSUB 1010 
750 INTERVAL ON 
760 FOR Z=i TO 5000:NEXT 
770 INTERVAL OFF 

780 LINE<20,140)-<250,160),12,BF 
800 * 

810 ’ K-# Vis scroll med interrupt IHf 
820 ’ 

830 DRAW"bm20,52“ 

840 PRINT#1,"Metode 3: Brug af i nte 
rrupt” 

850 GOSUB 1100:T=2:G0SUB 1230:GOSUB 
1330 

860 POKE 8<HFDA5,834DO 
870 POKE fcHFDA4,&H0 
880 POKE B34FDA3, I34C3 
890 FOR Z=1 TO 20000:NEXT 
900 POKE 8<HFDA3,liHC9 
910 SCREEN O 
920 LOCATE 6,8 

930 PRINT"Et eller andet sted skal 

jeg 

940 LOCATE 6,10 

950 PRINT”jo stoppe demonstrationen 

i 

960 LOCATE 1,20 
970 END 
1000 ’ 

1010 ’ ** Rutine til OM INTERVAL. « 
1020 7 

1030 D=USR0(0) 

1040 RETURN 
1100 7 

1110 7 X-X- Sletning af scrollfelt XX 
1120 7 

1130 FOR Z=lcH1600 TO 83416FF 
1140 VPOKE Z,0 
1150 NEXT 

1160 FOR Z=&<HD800 TO &HD8FF 
1170 POKE Z,0 
1180 NEXT 
1190 RETURN 
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1200 ’ 

1210 ’** Hent tekst til strengbutfe 
r ** 

1220 * 

1230 FOR Z=1 TO 101 

1240 POKE Z+feHDOFF,ÅSC(MID*<T*(T), Z 
, 1) ) 

1250 NEXT 
1260 RETURN 
1300 ’ 

1310 ’** Udfyld tabel ** 

1320 * 

1330 POKE &cHE2iO, &H0: PQKE&HE211, fe<HD 
i 

1340 POKE 6cHE212, 6cH0: P0KEILHE213, kHD 
1 

1350 POKE &HE214, ftcHO: P0KE&HE215, tffl 
1360 POKE teHE216, &H0: P0KE&HE217,WHD 
8 

1370 POKE lsHE218,8cH0: P0KE!<HE219, RrH 1 
6 

3.380 POKE fkHE2i A, Uf7 * POKE8iHE2 i B, fcHD 

1390 POKE feHE21C, IcHO: P0KE&HE21D, kHO 
1400 POKE SLHE21E, feHO: POKEfeHE21F , feHD 
9 

1410 POKE &HE220,l<H6 
1420 POKE SkHE221,8cHl 
1430 POKE 8<HE222, fkH2i 
1440 POKE 1LHE223, &H8 
1450 RETURN 
1500 ’ 

1510 ’ ** Data MC-kode. (105 bytes) 
** 

1520 ’ 

1530 DATA 21,21,E2,35,20,28,2A,12 
1540 DATA E2,AF,BE,20,03,2A,10,E2 
1550 DATA 7E,23,22,12,E2,26,00,6F 
1560 DATA 29,29,29,11,BF,IB,19,01 
1570 DATA 08,00,ED,5B,1E,E2,ED,B0 
1580 DATA 3A,20,E2,32,21,E2,11,F8 
1590 DATA FF,2A,1A,E2,22,IC,E2,3A 
1600 DATA 23,E2,4F,3A,22,E2,47,CB 
1610.DATA 26,38,OA,19,10,F9,18,08 
1620 DATA 7E,8F,77,30,F6,19,10,F8 
1630 DATA 2A,IC,E2,2B,22,IC,E2,OD 
1640 DATA 20,E1,ED,4B,14,E2,ED,5B 
1650 DATA 18,E2,2A,16,E2,CD,5C,00 
1660 DATA C9 



BOULA 


MED SUEN 

10 REM SAVE"1:bowla" 


DSK ELLER CAS 


20 REM TILLVERKARE SVEN-AKE SVENSS 
ON 

30 REM NÆRKESGATAN 3A 

40 REM S-214 30 MALMØ SVE 

RIGE 

50 REM ********* OBS !!!!!!!!!!!! 

60 REM NY ADRESS FRAN OCH MED 87070 

1. 

70 REM ALBINSROGATAN 47 
80 REM S-214 67 MALMØ SVERIGE 
90 REM SLUTFØRT *************** 870 
402 **************** 

100 REM DATOR SVI 328 MED 80 SPARS 
DSK □ CAS: SKRIVARE PHILIPS PTS 310 
O 

110 ON STOP GOSUB 4160 : STOP ON 
120 CLICK OFF 

130 COLOR 12,3,10 : SCREEN 2 

140 LOCATE 0,17 

150 PRINT "***********" 

160 PRINT "* BOWLING *" 

170 PRINT "***********" 

180 REM ***** INLEDNINGSMUSIK *** 

190 A*="VI2T25503DD#E04CC03E04CC03E 
04CCC" 

200 B*="Q4CDD#ECDEE03B04DDCCC" 

210 C*="Q3AGF&AA04CEDC03A04DDDD" 

220 D*="04CDD#ECDEE" 

230 PLAY A* 

240 PLAY B* 

250 PLAY A* 

260 PLAY C* 

270 PLAY A* 

280 PLAY B* 

290 PLAY D* 

300 PLAY D* 

310 PLAY B* 

320 REM NOLLSTÆLLNING AV VARIABLER 


330 COLOR 15,4,5 : CLEAR : DEFINT A 
-Y :ON ERROR GOTO 2860 : ON STOP GO 
SUB 4160 : STOP ON 

340 REM GRUND DATA ANTAL DELTAGARE 


350 SCREEN 0,0 : WIDTH 39 : LOCATE, 
,O: PRINT STRING*(195,42) : LOCATE 

14,2 : PRINT CHR*(27)+"p"" BOWLING 
f, CHR* (27) + ”□" 

360 LOCATE 0,7 : INPUT "BESKRIVNING 
J/N (N) " 5 D* 

370 IF D*="J" OR D*="j" THEN GOTO 3 
470 

380 D*="" 

390 LOCATE 0,7 : INPUT "ANTAL DELTA 
GARE t ELLER 2 " J D* 

400 TF VAL(D*)=1 OR VAL(D*)=2 THEN 
C=VAL(D*) ELSE 330 
410 D*="" : Z=C 
420 PRINT 

430 PRINT : INPUT "NAMN DELTAGARE n 
r 1: "j A* 

440 PRINT : INPUT "JOYSTICK NR 0,1 
ELLER 2 D* : IF D*="" GOTO 330 
450 IF VAL(D*)=0 OR VAL(D*)=1 OR VA 
L(D*)=2 THEN A=VAL(D*) ELSE 330 
460 D*="" : E=A 
470 IF C=1 GOTO 530 
480 PRINT 








18 - 

**** BOWLA MED SVEN -X--M-X-44- 


490 PRINT : INPUT "NAMN DELTAGARE n 
r 2 : ";B* 

500 PRINT : INPUT "JOYSTICK NR 0.1 
ELLER 2 "} m : IF D*="" GOTO 330 
510 IF VAL(D$)=0 OR VAL(D*)=1 OR OA 
L(D*)=2 THEN B=VAL <D$) ELSE 330 
520 D$ s “ H 

530 IF LEN(A*)>16 OR LEN < B*)>16 GOT 
O 330 

540 PRINT : INPUT"ARM HASTIGHET 1-9 
(9) "JD* : IF D*="" THEN S0=90 : C 
$="" : GOTO 570 

550 IF INSTR(1,"123456789 ",D$)=0 TH 
EN 330 

560 SV=10*VAL <D*) :IF S0>90 THEN 330 
570 REN ****** BOWLING BANA ******* 

.5;..^.^.-V. 

580 COLOR 15,12.3 : SCREEN 1,2 : ON 
STOP GOSUB 4170 : STOP OM 
590 LINE (O,O)-(256,32),6,BF 
600 LINE (0.33)-(256,159),10,BF 
610 LINE (40,62)-<256,130),li,BF 
620 LINE <8,143)-<32.159),14,BF 
630 LINE (252,50)-(256,142),1,BF 
640 LINE (5,10)-<256,10),9 
650 LINE (5,21)-(256,21),9 
660 LINE (5,170)-(256,170),3 
670 LINE (5,181)-(256,181),3 
680 FOR I-5 TO 221 STEP 24 
690 LINE (I,O)-(I,32),9 
700 LINE (I+12,11)-(I+12,20),9 
710 LINE (1,160)-(I,192).3 
720 LINE (1+12,171)-<1+12,180),3 
730 NEXT I 
740 REN PILAR 

750"LOCATE 70,69 : PRINT CHR$<212) 
760 LOCATE 84,77 : PRINT CHR*(212) 
770 LOCATE 98,85 : PRINT CHR*<212) 
780 LOCATE 112,93 : PRINT CHR*(212) 
790 LOCATE 98,101 : PRINT CHR*(212) 
800 LOCATE 84,109 : PRINT CHR$<212) 
310 LOCATE 70,117 : PRINT CHR*(212) 
820 LOCATE 9,1 : PRINT "1 2 3 

4 5 6 7 8 9 10" 

830 LOCATE 9,161 : PRINT ” 1 2 

3 4 5 6 7 8 9 10" 

840 REN LÆSA IN SPRITAR 

850”LOCATE 57,148 : PRINT "LADDNING 
AV FIGURER " : RESTORE 2910 
860 FOR J = 1 TO 18 
870 S*=STRING*(32,0) 

880 FOR 1=1 TO 16 

QQA PP All P* P* 

900 M1D$<S$, 5 I, 1 ) =CHR* (VAL ( " &<H" +E*) ) 
910 NID* (S*, 1 + 16, 1 )=CHR*(VAL ( "&:H"+F 
*) ) 

920 NEXT I : SPRITE*(J)=S* 

930 NEXT J 

940 REM KÆGLORNAS LÆGE A GER X KORD 
1NAT GUBENS Y LÆGE=H B GER Y 
KORDINAT 

950 Ad) =200 : A ( 2 ) -214 : A<3>=214 
:A<4)=228 : A(5)= 228 ‘ A(6)=22S : A 
(7) =242 : A (8 ) =242 A<9>=242 : A(1 

O)=242 

960 H=93 : B <1)=93 : B(2)=85 : B(3) 
=101 : B(4)=77 : B(5)=93 : B(6)=109 
: B(7)=69 : B(8)=85 : B(9)=1O1 : B 
(10)=117 

970 REM BYTE AM SPELARE 

980 *IF Z=2 THEN Z=1 : E = A : GOTO 10 
00 


990 IF Z=1 AND C=2 THEN Z=2 : E=B 
1000 LINE (33,33)-(256,49),1,BF : L 
INE (33,143)-(256,159),1,BF 
1010 IF Z=i THEN LOCATE 57,37 : PRI 
NT A* ELSE LOCATE 57,148 : PRINT B* 
1020 REM SÆTTA KÆGLORNA TILL * 

1030"FOR 1=1 TO 10 
1040 C*(I)="*" 

1050 GMi*="M"+ STR*(A(I)+2)+","+STR* 
(B ( I ) ) 

1060 DRAW "Cl5BXGM1*;R1F2D2G2L1H2U2 
E2":PAINT(A(I)+3,B(I)+3),15 
1070 NEXT I 

1080 REM FLYTTNING AV GUBBE UPP OCH 
NER . 

1090 X=15 : y=h : g=o : 1=1 : j=o : 

F=12: S0UND7, fccBl1110110:S0UND8,16: 
SOUND1,15:SOUNDO,1:S0UND6,31:S0UND1 
1,50:SOUND12,2 

li00 PUT SPRITE 10,(15.145),1,1 
1110 D=STICK(E) : IF I>6 THEN 1=6 

1120 IF J=2 THEN F=F+1 : FOR J1=SV 
TO 90 : NEXTJ1 : GOTO 1290 
1130 IF D=0 THEN PUT SPRITE 5,(X,Y- 
24^|1,5 : PUT SPRITE 6,(0,0),0,31 : 

1140 IF D=1 THEN PUT SPRITE 5,(X,Y- 
30),1.6 

1150 IF D=5 THEN PUT SPRITE 5,<X,Y 
-24), i,6 

1160 IF D=1 THEN Y=Y-I : 1=1+1 : IF 
Y < 50 THEN Y=50 

1170 IF D=5 THEN Y=Y+I : 1=1+1 : IF 

Y>145 THEN Y=145 

1180 IF D=3 AND F=7 AND G=1 AND STR 
IG(E)=0 THEN FOR J1=SV TO 90 STEP 2 
: IF STRIG(E)=-1 THEN J=2 : GOTO 1 
300 ELSE NEXT Ji : J=2 : GOTO 1300 
1190 IF D=3 THEN F=F+1 : IF F>18 TH 
EN F=13 

1200 IF D=7 THEN F=F-1 : IF F<7 THE 
N F=7 

1210 REM FOTSTEG 

1220 IF I>1 AND Y >50 AND Y<145 THEN 
SOUND 13,0 
1230 REM GUBBE 

1240'PUT SPRITE 2, (X-2,Y-33),Z*6,2 
1250 PUT SPRITE 3,(X-2.Y-17).2*6 3 
1260 PUT SPRI TE 14, (X,Y-22),i5,4 
1270 IF D=1 THEN PUT SPRITE 6,(X,Y- 
36), 1,6 

1280 IF D=5 THEN PUT SPRITE 6,(X,Y- 
34),1.6 

1290 IF J=2 AND F = 19 THEN IF SV=10 

THEN F=18 : GOTO 1340 ELSE X=X+F*2- 

24 : F=16 : GOTO 1370 

1300 IF F< = 12 THEN PUT SPRITE 7, (X- 

7,Y-9),Z*6,F ELSE PUT SPRITE 7,(X+4 

,Y-9),Z*6,F : REM ARM SPRITE 7-18 

1310 IF G=1 THEN PUT SPRITE 10,(X+F 

*2-24,Y),1,1 : GOTO 1330 

1320 IF F=12 AND Y=145 THEN G=1 ELS 

E GOTO 1110 

1330 IF STRIG(E)=-1 AND J=2 GOTO 13 
40 ELSE 1110 

1340 REM---- KLOT IVÆG - 


1350 X=X+F*2-24 
1360 F=16*F/2+100 

1370 H=Y : ZZ=Y : IF Y>125 THEN F=3 

00 : Y=130 : GOTO 1390 

1380 IF Y< 56 THEN Y = 50 

1390 SOUND 7, BcBl 1100101: SOUND 9,7:S 










**** bomla HED SVEN -N-M-H-N- 


OUND 3,13:SOUND 2,1:SOUND 6,30:S0UN 
D8,16:SOUND12,50 
1400 FOR X=X TO 187 

1410 IF X>F AND Y<>50 THEN ZZ=ZZ-.5 
: Y=INT(ZZ) : IF Y<50 THEN Y=50 
1420 FOR J=i TO 6 : NEXT J 
1430 PUT SPRITE 10,(X,Y),1 , 1 
1440 NEXT X 

1450 FOR X=188 TO 198 STEP 2 

1460 IF X>F THEN Y=Y-1 : IF Y<50 TH 

EN Y=50 

1470 XX-194-X : IF XX=0 THEN XX=1 E 

LSE IF XX<0 THEN XX=0 

1480 PUT SPRITE 10.(X,Y),1,1 

1490 IFCf(1 ) = " f " ANDY >=82 +XXANDY< = 10 

0-XXTHENC$<l)="":LINE(200,93)-<205, 

100) ,11,BF:0NY-31G0SUB2250.2250,225 
0,2250,2020,2010,2010,2020.2030,209 
0,2000,1990,1980,1980,1990,2250,225 
0,2250,2250:S0UND13,3 

1500 PUT SPRITE 10, (X +1,Y),i,1:NEXT 

1510 IF 200>F THEN Y=Y-2 : IF Y<50 
THEN Y=50 

1520 PUT SPRITE 10. <200,Y),1.1 
1530 IF C$(l)="* u AND Y>-83 AND Y<= 
99 THEN C$<l) = ,, ' , : LINE (200,93 ) - (20 
5,100),11,BF:S0UND13,3 
1540 PUT SPRITE 10,(201.Y),1,1 
1550 FOR X-202 TO 212 STEP 2 
1560 IF X >F THEN Y^Y-1 : IF Y<50 TH 
EN Y=5G 

1570 XX=208-X : IF XX=0 THEN XX=1 E 

LSE IF XX<0 THEN XX=0 

1580 IF Cft»(2)="*" AND Y>=74 + XX AND 

Y<-92“XX THEN C$(2)= n " : LINE(214.8 

5)-(219,92),11,BF:ON Y-73 GOSUB 203 

0,2030,2030,2150,2110,2080,2080,208 

0,2090,2200,2050,2040,2040,2040,207 

O.2250,2250,2250.2250:SOUND13,3 

1590 PUT SPRITE 10. (X,Y),1. 1 

1600 IF C$(3>=" ¥■" AND Y>=90-i-XX AND 

Y<=10S-XX THEN C*(3)="" : LINE<214, 

101) -(219,108),il,BF:ON Y-89 GOSUB 
2250,2250,2250,2250,2150,2140,2140, 
2140,2150,2210,2110,2100,2100,2100, 
2110,2050,2030,2030,2030:SOUND13,3 
1610 PUT SPRITE 10,(X+1,Y),1,i:NEXT 

X 

1620 IF 214>F THEN Y=Y-2 ! IF Y<5Q 
THEN Y~50 

1630 IF Cf(2)="? n AND Y>=75 AND Y<- 
91 THEN GOSUB 2000:S0UND13,3 
1640 PUT SPRITE 10, (214,Y) ,1,1 
1650 IF C*(3)="*" AND Y>=91 AND Y<= 
107 THEN GOSUB 2030 : GOSUB 2000:SO 
UND 13,3 

1660 PUT SPRITE 10, < 2 i 5, Y ) , 1, 1 
1670 FOR X=216 TO 226 STEP 2 
1680 IF X >F THEN Y=Y-i : IF Y<50 TH 
EN Y=50 

1690 XX-222-X : IF XX=0 THEN XX=1 E 
LSE IF XX<0 THEN XX=0 
1700 IF C*(4)="*" AMD Y>=66+XX AND 
Y< =84-XX THEN C$<4)="" : LINE(228,7 
7) — <233,84),11,BF:ON Y-65 GOSUB 212 
0,2130,2130,2210,2200,2200,2200,220 
0,2200,2250,2180,2180,2180.2180,218 
0,2250,2250.2250,2250:SOUND13,3 
1710 PUT SPRITE 10,(X,Y),1.1 
1720 IF Cf(5)="f" AND Y>=82+XX AND 
YOIQO-XX THEN C$(5) = " " : LINE (228. 
93)-(233,100),11,BF:ON Y-81 GOSUB 2 

150.2150.2150.2240.2210.2210.2210.2 

210.2210.2250.2200.2200.2200.2200.2 


200,2180,2070,2070,2070:S0UND13,3 
1730 IF C$(6)="f" AND Y>=98 + XX AND 
Y< = 116-XX THEN C$(6) = "" : LINE(228, 
109)-(233,116),ll.BF:ON Y-97 GOSUB 
2250,2250,2250,2250,2240,2240,2240, 
2240,2240,2250,2210,2210,2210,2210, 
2210,2200,2110,2110,2060:S0UND13,3 
1740 PUT SPRITE 10,(X+l,Y),1,i:NEXT 

1750 IF 228 >F THEN Y=Y-2 : IF Y<50 
THEN Y=50 

1760 IF C$(4>="*" AND Y>=67 AND Y<= 
83 THEN GOSUB 2050:S0UND13,3 
1770 PUT SPRITE 10,(228,Y),1.1 
1780 IF C$(5)="*” AND Y>=83 AND Y< = 
99 THEN GOSUB 2060:S0UND13,3 
1790 IF C$(6)="*" AND Y>=99 AND Y< = 
115 THEN GOSUB 2120:S0UND13.3 
1800 PUT SPRITE 10,(229,Y),1,1 
1810 FOR X=230 TO 240 STEP 2 
1820 IF X>F THEN Y*Y-1 : IF Y<50 TH 
EN Y=50 

1830 XX=236-X : IF XX=0 THEN XX=i E 
LSE IF XX<0 THEN XX=0 
1840 IF C$(7)="*" AND Y>=58+XX AND 
Y<"76-XX THEN C*<7> = "" : LINE(242.6 
9)-(247,76),li.BF:ON Y-57 GOSUB 222 
0,2190,2200,2250,2250,2250,2250,225 
O,2250,2250,2250,2250,2250,2250,225 
0.2250,2250,2250,2250:S0UND13,3 
1850 IF C$(8) = "* r ' AND Y>=74 + XX AND 
Y<=92-XX THEN Cf(8)= M ” : LINE(242,8 
5)-(247,92),ll.BF:ON Y-73 GOSUB 223 
0,2230,2210,2250,2250,2250,2250,225 
O,2250,2250,2250,2250,2250,2250,225 
0,2250,2250,2250.2250 S SOUND13,3 
1860 PUT SPRITE 10,(X,Y),1,1 
1870 IF C*(9)="f n AND Y>=90+XX AND 
Y< = 108-XX THEN C*(9) = ,, “ : LINE (242, 
101)-(247,108),11,BF:ON Y-89 GOSUB 

2240.2240.2240.2250.2250.2250.2250, 

2250.2250.2250.2250.2250.2250.2250, 
2250,2250,2200,2170,2170:SOUND13,3 
1880 IF C*(10)="*" AND Y>=106*XX AN 
D Y<-124-XX THEN C$(10)= M " : LINE(2 
42,117)-(247.124).11,BF:ON Y-105 GO 
SUB 2250,2250,2250,2250,2250,2250,2 

250,2250,2250,2250,2250,2250,2250,2 
250,2250,2250,2210,2.1.90,2160: SOUND 1 
3 3 

lå9G PUT SPRITE 10,(X+1,Y),1,i:NEXT 
X 

1900 IF 242>F THEN Y=Y-2 : IF Y<50 
THEN Y“50 

1910 IF C$ (7)~"f" AND Y>=59 AND Y<= 
75 THEN GOSUB 2180:S0UND13,3 
1920 IF C$(8)="*" AND Y>=75 AND Y< = 
91 THEN GOSUB 2170:SOUND13,3 
1930 PUT SPRITE 10,(242.Y),1,1 
1940 IF C ft (9) = " £" AND Y>=91 AND Y< = 
107 THEN GOSUB 2190:S0UND13,3 
1950 IF Cf(10)="f" AND Y>=107 AND Y 
<=123 THEN GOSUB 2230:S0UND13,3 
1960 PUT SPRITE 10,(243,Y),1,1:GOTO 
2270 

1970 REM B0RTAGN1NG AO KffiGLOR OID T 


RfiFF 

1980 C$(7 ) - " " 
6 ),11,BF 
1990 C$(4)="" 


LINE(242,69)-(247,7 
LINE(228,77)-(233,8 


4) li BF 

2060 fi*(2)="" : LINE(214,85)-(219,9 
2).11.BF : RETURN 

2010 C*(iO)="": LINE (242,117) - (247, 


124),11,BF 











- 20 - 

■M-*** BOWLA MED SVEN 


2020 C$(6)="" : LINE<228,109)-(233, 
116),11,BF 

2030 (3)="" : LINE(214,101)-(219, 

108),11,BF : RETURN 

2040 C$(7 > = " " : LINE<242,69)-<247,7 
6),il,BF 

2050 C$(4) =" " ; LINE<228,77)-(233,8 
4),11,BF : RETURN 

2060 C$<5)="” : LINE<228,93)-<233,1 
00),11,BF 

2070 cé<4)="" : LINE(228,77)-(233,8 
4),11.BF :RETURN 

2080 C$ (9)8="" ; LINE <242,101)-<247, 
108),11,BF 

2090 C*(5) = "" : LINE < 228,93)-<233,1 
00),11.BF : RETURN 

2100 Cé<8)="" : LINE(242,85)-(247,9 
2),i1,BF 

2110 C$ <5) = "" : LINE<228,93)-<233,1 
00),11.BF :RETURN 

2126 cé<6)="" : LINE<228,109)-<233, 
116),11,BF 

2130 C$<5)="" : LINE<228,93)-<233,1 
00).11,BF : RETURN 

2146 Cé<10)="": LINE<242,117)-<247, 
124),11,BF 

2150 C$ (6 ) = 11 “ : LINE <228, 109) - <233, 
116),11,BF : RETURN 

2160 C$(9)="" : LINE(242,101)-<247, 
108),11,BF 

2170 C$ (8) = " " : LINE(242,85)-(247,9 
2) il BF 

2låo å*<7)="" : LINE(242,69)-<247,7 
6),11,BF : RETURN 

2190 C$(9)="" : LINE(242,101)-(247, 
108),11,BF 

2200 C^tS)^'" : LINE <242,85) - <247,9 
2),11,BF : RETURN 

2210 C$(9)="" : LINE(242,101)-<247, 
108),11,BF : RETURN 

2220 C®(8)="" : LINE <242,85)-<247,9 
2) il BF 

22 O 0 å$(9) = H " : LINE <242,101)-<247, 
108) 11 BF 

2240 * C$*( 10) = " " : LINE <242, 117) - <247, 
124),11,BF 
2250 RETURN 

2260 REM RÆKNING EFTER TRÆFF 

2270 PUT SPRITE 1O,(20,145),1,1 

2280 K=0 : S=S+1 

2290 IF S=2 THEN S=3 

2300 IF 2=1 AND S=i THEN 0=0+1 

2310 FOR 1=1 TO 10 

2320 IF C$ <I) = "" THEN K=K + 1 

2330 NEXT I 

2340 IF K=1O AND S=1 THEN S0UND7,24 
8:PLAY"04T120L8C64R64C64DCEF","04L8 
GFGAD","04L8GFGAD": FOR 1=1 TO 2000 
: NEXT: GOTO 2380 

2350 IF K=1O AND S>1 THEN S0UND7,24 
8: PLAY"04T120L8C64R64C64C" *. FOR 1 = 
1 TO 1000: NEXT : GOTO 2380 
2360 IF K=0 AND S=i OR K=L AND S>1 
THEN S0UND7,248:PLAY"01T255A":FORI = 
iTO 500:NEXT:GOTO 2380 
2370 S0UND7,248:PLAY"05T255A":FORI= 
1TO 500:NEXT 

2380 IF Z=1 THEN LOCATE 3,13 ELSE L 
OCATE 3,173 

2390 IF S=1 THEN L=K ELSE L=K-L 
2400 IF S >3 GOTO 2680 
2410 IF L=10 AND S=1 AND D(2)=0 THE 
N D <Z)=3 : E(Z)=0 : GOTO 2620 : REM 
STRIKE NR 1 


2420 IF L=10 AND S=1 AND G(Z)=0 THE 
N G(Z)=3 : H(Z)=0 : GOTO 2620 : REM 
STRIKE NR 2 

2430 IF L=1O AND S=1 AND J(Z)=0 THE 
N J(Z)=3 : K(Z)=0 : GOTO 2620 : REM 
STRIKE NR 3 

2440 IF K=10 AND M(Z)=0 THEN M(Z)=2 
: N (Z) =0 : PRINT TAB (0*4-1 ) " / " : 

GOTO 2460 : REM SPÆRR 
2450 IF L=0 THEN PRINT TAB(0*4+S-4) 
"-"ELSE PRINT T AB < 0*4+S-5 ) L 
2460 GOSUB 2650 : REM F'OSITIONSBEST 
ÆMNING AU SIFROR 

2470 IF D < Z)>0 THEN E(Z)=E(Z)+L : D 
(Z)=D(Z)-1 : IF D(Z)=0 THEN T(Z)=T< 
Z) +E (Z) : IF GIZIOO THEN GOSUB 263 

O ELSE GOSUB 2640 

2480 IF G(Z)>0 THEN H(Z)=H(Z)+L : G 
(Z)=G(Z)-1 : IF G(Z)=0 THEN T(Z)=T< 
Z) +H < Z) : IF JtZlOO THEN GOSUB 263 

O ELSE GOSUB 2640 

2490 IF J(Z)>0 THEN K(Z)=K(Z)+L : J 
<Z)=J(Z)-1 : IF J <Z)=0 THEN T(Z)=T( 
Z)+K(Z) : IF D(Z)< >0 THEN GOSUB 263 

O ELSE GOSUB 2640 

2500 IF M(Z)>O THEN N(Z)=N(Z)+K : M 
(Z) =M < Z)-i : IF M(Z)=0 THEN T(Z)=T( 
Z)+ N(Z) : GOSUB 2640 
2510 GOSUB 2650 

2520 IF D(Z)=0 AND G(Z)=0 AND J<Z)= 
O AND M(Z)=0 AND S=3 THEN T(Z)=T(Z) 
+K ^ PRINT TAB(0*4-LEN(STR$(T(Z)>)) 

2530 IF S=3 AND 0>9 AND K<10 AND C= 

Z THEN GOTO 2750 : MISS I OMGANG 10 

2540 IF S=3 AND 0>9 AND K=10 THEN L 

=0 : GOTO 1020 

2550 IF S< >4 GOTO 2580 

2560 IF K=1O THEN L=0 : GOTO 1020 

2570 IF DIZIOO OR G(Z)<>0 OR J(Z)< 

>0 THEN GOTO 1030 

2580 IF S=5 AND C=Z GOTO 2750 

2590 IF 0>10 THEN 0=10 

2600 IF S=1 GOTO 1030 

2610 S=0 : L=0 : GOTO 980 

2620 S=3 : PRINT TAB(0*4-3) "X" : 6 

OTO 2460 

2630 PRINT TAB(0*4-8-LEN(STR$(T(Z)) 
)) T(Z) : RETURN 

2640 PRINT TAB(0*4-4-LEN(STR$ <T <Z)) 
)) T < Z) : RETURN 

2650 IF Z=1 THEN LOCATE 3,24 ELSE L 
OCATE 3.184 
2660 RETURN 

2670 REM OMGANG 10 S=4 ELLER S=5 


2680 
2690 
2700 
2710 
X" : 
2720 
/ " : 
2730 

_ »I o 

2740 

O 

2750 
AR . 
2760 


IF M(Z)=1 THEN S=S+1 
IF 0=11 THEN 0=10 
0 = 0+1 

IF L=1O THEN PRINT TAB(35+S) " 

GOTO 2460 

IF K=1O THEN PRINT TAB(35+S) " 

GOTO 2460 

IF L=0 THEN PRINT TAB<35+S) " 
GOTO 2460 

PRINT TAB <34 + S) L : GOTO 246 
REM AVSLUTNING EFTER 10 OMGANG 


S0UND7,248:PLAY"v8t101slm!3000 
o414d8a.a8f+db2r4.d8o5d4.d8c+o4bba2 
ac+ . c+Sde-f + g + aba2g + 2a2r4. ", "v8ti01s 
Iml3000o314d8f + . + +8a-f +g2r4. o4d8d . d8 
ddq-f +2do3a. a8aaabao4dc + 2o3b2a2r-4. " , 
" v8t 101slml3000o414r8d . d8ddo4d2r-2o3 






BOMLA MED ©VEN 


b. b8a<^dd2f+g. g8f +o4c+o3ddc+de2e2o4c 

2770"LINE (40,62)-(250,130),11,BF 
2780 LOCATE 46,77 : PRINT A$: LOCAT 
E 150,77 : IF 1(1)00 THEN PRINT "S 
UMMA T (1 ) 

2790 IF C=2 THEN LOCATE 46.93 : PRI 
NT B$: LOCATE 150,93 : IF T(2)< >0 T 
HEN PRINT "SUMMA 6 T(2) 

2800 FOR 1=1 TO 4000 : NEXT 
2810 LOCATE 40,109 : PRINT " Vi 11 r. 
i forsoka en gang till j/n PRESET 
(101,109),15:PRESET(103,109),15 :PR 
ESET(119,109),15:PRESET(121,109),15 
:PRESET(168,109),15 
2820 D$=INKEY$ : IF D$="" GOTO 2820 
2830 IF D$="J" OR D$="j" THEN GOTO 
320 

2840 IF D$="N" OR D$="n" THEN END E 
LSE 2820 

2850 REM FELHANTERNING 


2860 RESUME 320 

2870 DATA 50,0,70,8,78,88,78, O: REM 


0,50,0,70,88,88,70,0: REM 
20,0,70,8,78,88,78,0:REM 
20,O,70,88,F8,88,88,O:RE 


2880 DATA 

ø 

2890 DATA 
å 

2900 DATA 
M A 

2910 DATA 6,0,i F ,80,3F,CO,3F,C0,7F, 
EO,7F,EO, 7F,EO, 3F,CO,3F.C0,IF,80,6, 

o,0,o s o,6,o,0 |6 ^o,o,o:rém sprite i 

2920 DATA 3,EO,7,FO,7,F8.F,F8,F,FC, 
1F.FC.1F.FC,3F,FC,3F,FE,3F, FE,3F,FE 
,3F,FE,3F,FE,3E,3E,38,1E,38,E:REM S 
PRITE 2 ovandel gubbe 
2930 DATA 30,E,30,E,38,E,38,1E.3E,3 

E, 3F,FE.3F,FE,3F,FE,3F,FE,3F,FE,3F, 
FE.1F.FC,1F,FC,IF,FC,F,F8,7,EO:REM 
SPRITE 3 underdel gubbe 

2940 DATA O,O,3F,CO,7F,EO,7F,EO,7F, 
EO.7F,EO,7F,EO.7F,EO,7F,EO,7F,E0.3F 
,CO,O,O,O,O,O,O,O,O,O,O:REM SPRITE 
4 huvud gubbe 

2950 DATA O,3E,O,3F,O,3F,O,3E,O,O,O 

; åéhg^épikiii - °4° ■ ° k ° • 3 

-Føtter 

2960 DATA O,O,O,O,O,O,O,O,O,O,O,O,O 
^0, O, O, O, O, O, O, O, O, O, O, O, 3E, O, 3F, O, 
3F,O,3E:REM SPRITE 6 1 fo 

t 

2970 DATA 0,3F,0,3F,O,3F,O,3F,0.3F. 
0,3F,0,3F,0,1F,0,3F,0,FF,3,FE,3F,F8 
,FF,EO,?F,80,FE,O,18,0:RåM SP&ITÉ 
7 arm 1-12 sprite 7-18 

2980 DATA O,3F,O,3F,O,3F,O,3F,O,3F, 
O,3F,O,3F,O,IF,O,3F,O,7F,O.FE.F,FC, 
3F,FO,1F,CO,3F,O,C,0:REM SPRITE 8 
2990 DATA O,3F,O,3F,O,3F,O,3F,O,3F, 
O,3F,O,3F,O,iF,0,3F,0,7F,0,FE,7,FC, 

F, F8,7.FO,F,80,7,0:REM SPRITE 9 
3000 DATA 0,3F , O, 3F , 0,3F, 0,3F, 0,3F, 
O, 3F,O,3F,O,IF,0,3F,O,3F,0,7E,1,FC, 
3,F8,i,FO,3,EO,1,CO:REM SPRITE 10 
3010 DATA 0,3F, 0,3F , 0,3F, 0,3F , O , 3F, 
0,3F , 0,3F , 0, 1F , 0, 1F , 0,3F , O , 7E , O , 7C , 
0,F8,0,F8,0,F8,0,70:REM SPRITE 11 
3020 DATA 0,3F , 0,3F , O , 3F , O , 3F , O , 3F , 
O,3F,O,3F,O,IF,O,1F,O,IF,O,IF,O,IF, 
0,3E,0.3E,0,3E O!IC-RÉM ép&ITÉ 12 
3630 DATA FC,0,FC,0,FC,0,FC,0,FC,0, 


FC,0,FC,0,F3,0,F8,0,F8,0,F8,0,F8,0, 
7C,0,7C,0,7C,0,38,O:REM SPRiTÉ i3 
3040 DATA FC,O,FC,O,FC,O,FC,O,FC,O, 
FC,0,FC,0,F8,0,F8.0 ,FC,o’7e!o 3E O 
1F.0, 1F,0, lF,O,E,0:^EM SI^RliE l4 
3050 DAtA FC,0,FC,0,FC,0,FC,0,FC,0, 
FC,0,FC,0,F8,0,FC,0,FE,0,7E,0,3F,86 
^1F,C0,F,C0,7,C0,3,80:REM SPRITE 1 

3060 DATA FC,O,FC,O,FC,O,FC,O,FC,O, 
FC,0,FC,0,F8,0,FC o’fe’o 7f!o! 3F C6 
^1F,É0,F,F0,3,E0, i,Oo:^EI^l S^iTE 1 

3070 DATA FC,O,FC,0,FC,O,FC,0.FC.0, 
FC,0,FC,0,F8.0,FC.0,FE,0 7F’cå,3^,^ 
0,F,F8,3,FC,1,F8,0,/0:REM SPRITE 1 

3080 DATA FC,O,FC,O,FC,O,FC,O,FC.O, 
FCj 0,FC.0,F8,O,FC,O,FF,O,7F,c6,i£,^ 
C,7,FE,i,FF,6,7E,0,38:REM S^RlfE 1 
8 


3090 REM VARIABLER 

3100 REM A$,B$,C$,D$ INLEDNINGSMUSI 

3110 REM A$ NAMN PA DELTAGARE NR 1 

3120 REM B*-: --2 

3130 REM X KOORDINAT FØR KLOT 

3140 REM Y ---::- 

3150 REM A(1> => A(10) X KOORDINAT 
FØR KÆGLOR 

3160 REM B(1) => B(10) Y KOORDINAT 
FØR KÆGLOR 

3170 REM S$.E$,F$ HJÆLP VID INLÆSNI 
NG AV SPRITAR 

3180 REM I FOR TO NEXT VARIABEL OCH 
ÆVEN FØR ATT HJÆLPA TILL VID FØRFL 
YTTNING AV GUBBE 

3190 REM C$(1) => C$(10) KÆGLOR ““ 
ELLER "f" 

3200 REM D STICK(D) 

3210 REM K RÆKNA NEDFALLNA KÆGLOR T 

OTALT 

3220 REM Z VILKEN SPELARE SOM SPELA 

R FØR ØGONBLICKET i ELLER 2 

3230 REM O OMGANG 1-10 

3240 REM S SLAGRÆKNARE 

3250 REM L ANTAL NEDFALLNA KÆGLOR P 

ER SLAG 

3260 REM D <i),D(2),G(1),G(2),J(l) , J 
(2) STRIKE AVRÆKNING 
3270 REM T(1),T(2) SUMMA SAMMANRÆKN 
ADE POÆNG 

3280 REM E(l),E<2),H(1),H(2),K(1) ,K 
(2) POÆNG RÆKNING STRIKES 
3290 REM M(1),M(2) SPÆRR AVRÆKNING 
3300 REM N(i),N(2) SPÆRR POÆNG RÆKN 
ING 

3310 REM D$ ANVÆNDS VID VAL AV JOYS 
TICK OCH ANTAL SPELARE SE ÆVEN PLAY 
3320 REM A JOYSTICK VAL SPELARE 1 O 
,1 ELLER 2 

3330 REM B JOYSTICK VAL SPELARE 2 O 
,1 ELLER 2 

3340 REM C ANTAL SPELARE 1 ELLER 2 

3350 REM E SE A OCH B VAL AV VILLKE 

T JOYSTICK AKTUELL SPELARE HAR 

3360 REM J FØR LOPAR SE 1 

3370 REM F VAL AV ARM PA GUBBEN F=1 

2 GRUNDDATA F=7 => F18 

3380 REM G FLAGA KLOT SKALL FØLJA S 

PRITE GUBBEN 

3390 REM H HJÆLP FØR ATT PLACERA GU 
BBEN EFTER SKRUV 
3400 REM 

3410 REM ZZ HJÆLP FØR ATT GØRA SKRU 
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VEN PÅ KLOTET 

3420 REM XM OCH ME$ OCH YM ANVÆNDS 
VID BESKRIVNINGSUTSKRIFT 
3430 REM XX HJÆLP FØR ATT RÆKNA UTT 
VILKA KÆGL.OR SOM SKALL FALLA 
3440 REM GM1$ HJÆLP ATT RITA KÆGLOR 
3450 REM J1 LOPAR 
3460 REM SV ARM HASTIGHET 
3470 REM beskrivning 
3480 RESTORE 2870 : FOR J=1 TO 3 : 
FOR 1=0 TO 7 : READ A$ : VPOKE (276 
8 + 1) +(J#8) , VAL ( " 8cH" + A$) : NEXT I : NEXT 


VPOKE 


60SUB 4080 


3490 FOR 1=0 TO 7 : READ A$ 

2536+1, VAL(" fccH"+ A$):NEXT I 
3500 CLS : YM=0 
3510 ME#="BOWLING" : 

3520 YM=YM-1 : ME$=". B 
UB 4080 

3530 ME$="Spel -fjerr en eller två de 
1tagare":GOSUB 4080 

3540 ME$= "Poængrækning sker som vi 
d" : GOSUB 4080 
3550 ME$="van lig bowling." 

4080 

ME$="Val av joystick:" 


3560 
R 4080 
3570 ME$=”0 


:gos 


GOSUB 

GOSU 


80 
3580 
3590 
3600 


= inbyggda" : GOSUB 40 


GOSUB 4080 
GOSUB 4080 
GO 


e. " 
3640 
be. " 
3650 


har rød gubb 
har grøn gub 


ME$="1 = port 1" 

ME*="2 ■ port 2" 

ME$="Namn,max 16 tecken" 

SUB 4080 
3610 GOSUB 4120 
3620 CLS : YM=0 
3630 ME$="Deltagare 

GOSUB 4030 
ME$="De 1tagare 
GOSUB 4080 

ME$= "Gubben flyttas upp med j 
oystick:upp." : GOSUB 4080 
3660 ME*= tr Gubben -flyttas ner med j 
oystick:ner." : GOSUB 4080 
3670 ME$="Armen flyttas med joysti 
ck" : GOSUB 4080 

3680 ME$="vænster och høger." : GO 
SUB 4080 

3690 ME$="Avfyrningsknappen eller" 

: GOSUB 4080 

3700 ME$="mellanslagstangenten anv 
ænds før att" : GOSUB 4080 
3710 ME$="klotet skal 1 lossna från 
armen." : GOSUB 4080 
3720 GOSUB 4120 
3730 CLS : YM=0 

ME$="Armens læge motsvarar en 


3740 
viss punkt" 


GOSUB 4080 


3750 ME$="på banan,dær skruven kom 

mer att starta." : GOSUB 4080 

3760 ME$="Læget længst till vænste 

r ger den" : GOSUB 4080 

37/0 ME$="tidi gaste starten av skr 

uven." : GOSUB 4080 

3780 ME$="Desto længre till høger 

armen kommer," : GOSUB 4080 

3790 ME$="desto senare kommer skru 

ven att starta." : GOSUB 4080 

3800 ME$= 11 Observera att læget læng 

st till høger" : GOSUB 4080 

3810 ME$="gør att klotet går ut i 

rænnan," : GOSUB 4080 

3820 ME$="detta gæller inte før ar 

mhastighet 1." : GOSUB 4080 

3830 GOSUB 4120 

3840 CLS : YM=0 


3850 ME$="Gå ner med gubben och hå 

11 armen" : GOSUB 4080 

3860 ME$="øver klotet.Då fastnar k 

lotet på armen." : GOSUB 4080 

3870 ME$="Gå upp och stæl1 dig i p 

os ition." : GOSUB 4080 

3880 ME$="Før joystick till vænste 

r.så att armen" : GOSUB 4080 

3890 ME$="kommer i læget længst ba 

k." : GOSUB 4080 

3900 ME$="Før dærefter joystick ti 

11 høger,armen" : GOSUB 4080 

3910 MEé="kommer då att automatisk 

t flytta sig" : GOSUB 4080 

3920 ME$="+rån vænster till høger. 

" : GOSUB 4080 

3930 ME$="Hastiqheten på gubbens a 

rm regleras" : GoSUB 4080 

3940 ME$="med en stigande skala fr 

ån 1-9." : GOSUB 4080 

3950 GOSUB 4120 

3960 CLS : YM=0 

3970 ME$="Nær armen kommer till en 
læmplig" : GOSUB 4080 
3980 ME$="position,tryck då på fir 

e eller" : GOSUB 4080 
3990 ME$="mellanslagstangenten." : 
GOSUB 4080 

4000 ME$="LYCKA TILL !" : GOSUB 40 
80 

4010 ME$=" " : GOSUB 4080 

4020 ME$="Programmet ær tillverkat 

av" : GOSUB 4080 

4030 ME$="med 1 em nr 311" : GOSUB 4 
080 

4040 ME$="Sven-Ake Svensson" : GOS 
UB 4080 

4050 ME*="Sverige" : GOSUB 4080 

4060 GOSUB 4120 

4070 GOTO 330 

4080 REM skriv i mitten 

4090 XM=((39-LEN(ME$))/2) 

4100 LOCATE XM,YM : PRINT ME$ 

4110 YM=YM+2 : RETURN 
4120 REM tryck en tangent 
4130 LOCATE 0,23 : PRINTCHR*<27> + "p 
" " Tryck ENTER. " CHR$(27)+"q "5 
4140 IF INKEY$="" THEN GOTO 4140 
4150 RETURN 

4160 RETURN 320 : REM Ctrl stop 
4170 T(1)=0:T(2)=0:RETURN 2750 :REM 
Ctrl stop 


INSTRUKTIONER 

Spe 1 et år for en eller två 
deltagere. Poångråkning sker som 
vid vanlig bowling. Val av joystick 
:0 for det inbyggda, i for port 1 
och 2 for port 2. 

Deltagare 1 har rod gubbe. 

Deltagare 2 har gron gubbe. 

Gubben flyttas upp med joystick: 
uup. Gubben flyttas ner med 
joystick: ner. 

Armen flyttas med joystick vånster 
och hoger. 

Avfyrningsknappen eller mel lans lags- 
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tangenten anvånds tor att klotet 
skall lossna tran armen. 

Armens lage motsvarar en vlss punkt 
på banan, dår skruven kommer att 
starta. Låget 1 angst till vånster 
ger den tidigaste starten av 
skruven. Desto långre til hoger 
armen kommer, desto senare kommer 
skruven att starta. Observere att 
låget långst til hoger gor att 
klotet går ut i rånnan, detta 
galler inte -for armhast i ghet 1. 

Gå ner med gubben och hall armen 
over klotet. Då tastnar klotet på 
armen. Gå upp och ståli dig i 
position. For jostick till vånster, 
så att armen kommer i låget långst 
bak. For dåref t er joystick till 
hoger, armen kommer då att 
automatiskt flytta sig från vånster 
till hoger. Hastigheten på gubbens 
arm regi etas med en stigande skala 
från 1-9. Når armen kommer till en 
låmplig position, tryck då på fire 
eller mel lanslagstangenten. 

Programmerare 
Sven-åke Svensson 
Sverige 


RETTELSER TIL MSX 

120 OPEN"grp: 11 FOR OUTPUT AS#i 
130 C0L0R 12,3,10: SCREEN3,,0,2: KE 

YOFF 

140 PSET (5,17),3 

150 PR I NT# i, "********" 

160 PST (20,80),3:PRINT#i, "BOWLING 

II 

170 PSET (5,150),3!PRINT#1, "****** 
**" 

350 SCREEN0 IWIDTH 39 : FRINTSTRING 
*<195,42): L0CATE14,2: PRINT"B0WLIN 
G" 

580 COLOR 15,12,3: SCREEN2,2: OPEN" 
grp:"F0R0UTPUTAS#1:ONSTOP GOSUB 417 
0 : STOPON 

750 PSET(70,69),li:PRINT#l,"-" 

760 PSET(84,77),li:PRINT#l,"-" 

770 PSET(98,85),li:PRINT#i,"-" 

780 PSET(122,93),11:PRINT#1, 

790 PSET(98,101),ii:PRINT#i, 

800 PSET(84,109),ll:PRINT#i,"-" 

810 PSET(70,i 17),li:PRINT#i,“-" 



820 PSET(7,1),12:PRINT#i," 

4 5 6 7 8 9 10" 

830 PSET(7,161),12:PRINTttl , " 1 2 

3 4 5 6 7 8 9 10" 

840 REM LISA IN SPRITAR 

850 PSET(57,148):PRINT#!,"LADDNING 

AV FIGURER ": RESTORE 2910 

1010 IF Z =1 THEN PSET(57,37),1:PRI 

NT#1,A* ELSE PSET(57,148),1:PRINT#1 

,BS 

2280 K=0 :s=s + i *.SS=SS+1 

2380 IF Z=1THEN PSET(3,13),13 ELSE 

PSET(3,173),13 

2440 IF K=10 AND M(Z)=0 THEN M(Z)=2 
: N(Z)=0: PRINT#1, TAB(0*3-1)"/":GO 
T02460: REM SPiRR 

2450 IFL=0 THENPRINT#1,TAB(0*3+SS-3 
)"-"ELSEPRINT#1,TAB(0*3 +SS-4 > L 
2520 IFD(Z)=OANDG(Z)=OANDJ <Z)=0ANDM 
(Z)=0ANDS=3THENT(Z)=T(Z)+K:PRINT#1, 
TAB(0*3-LEN(STR*(T(Z)))) T(Z) 

2610 S=0:SS=0:L=0:G0T0980 

2620 S=3:PRINT#1,TAB(0*3-2)»X“:G0T0 

2460 

2630 PRINT#1,TAB(0*3-6-LEN(STRStT(Z 
)))> T(Z):RETURN 

2640 PRINT#1,TAB(0*3-3-LEN(STR*(T(Z 
)))) T(Z):RETURN 

2650 IFZ=1THENPSET(7,24),13ELSEPSET 
(7,184),13 

2710 IFL=10THENPRINT#i,TAB(27+SS)"X 
“:G0TG2460 

2720 IFK=10THENPRINT#1,TAB(27+SS)"/ 
“:G0T02460 

2730 IFL=0THENPRINT#1,TAB(27+SS)”-" 
:G0T02460 

2740 PRINT#1,TAB(26+SS)L:G0T02460 
2780 PSET(46,77),ii:PRINT#i,AS:PSET 
(175,77) ,11*. IFT ( i ) < >OTHENPRINT#i , "S 
UMNA"T(1) 

2790 IFC=2THENPSET(46,93),ii:PRINT# 
i,B*:PSET(175,93),11:IFT(2)< >0THENP 
RINT#1,"SUMMA"T(2) 

2810 PSET(40,109),11:PRINT#1,"En g« 
r.g till J/N" 

2870 REM 
2880 REM 
2890 REM 
2900 REM 

3400 REM SS HJBLP PLACERING TECKEN 
VID P01NGR1KNING 
3480 REM 
3490 REM 

4130 LOCATEO,23:FRINT“Tryck ENTER." 
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SNEAK SNAKE 


Sneak Snake er endnu et slange-godt 
spil. Vi har allerede vist et spil 
med slanger, men her kommer altså 
en slange mere! Spillet er til 
SVI328 og MSX. 

I spillet skal du styre en slange 
rundt i en have hvor den skal sluge 
diverse frugter. Men ak! I haven er 
der også smidt affald som du skal 
styre udenom, ligeledes skal du 
undgå de giftige svampe. 

Du ved selv hvor ondt det gør at 
bide sig selv i fingeren. Slangen 
synes heller ikke at det er morsomt 
at blive bidt, så undgå at den 
kommer til at bide sig selv. 

Når du spiser frugter eller bevæger 
dig rundt i stykke tid vil slangen 
vokse sig et lille stykke længere. 
Inden længe vil du opdage at du 
selv er dit største problem - din 
længde bliver hurtigt meget 
besværlig. Hvis du synes slangen 
vokser for langsomt, kan du ændre 
tallet 150 til fx. 50, så vokser 
siengen et led hvert sekund i 
stedet for et led hvert 3. sekund. 
Slangen bliver også bedre og bedre 
til at sno sig - så den bevæger sig 
hurtigere og hurtigere for hver 
bane. 

Spillet har for nogle år siden 
kunne købes til SVI computere - her 
i Danmark, men vi har fået 
tilladelse af RF og DH fra 
Datacraft til at bringe programmet. 


MSX Version; 

100 ’ SNEAK SNAKE 
110 ! 

120 GOTO 1320 

130 X=STICK(JS)JlF X>0 AND X\2<X/2 AND 
R(R)<>-R<<X-1)\2) AND X\2< >R THEN S0UND 
0,10+R#40:S0UND 8,7:R=(X-i>\2sSl=.9#S1 
:S0UND 8,0 

140 G=VPÉEK<P+R(R)):VP0KE P,32:P=P+R(R) 
;VPOKE P,R+12iVPOKE 0,0 
150 IF 0=0 AND TIME)T THEN 260 ELSE IF 
6=0 THEN 280 ELSE IF G>25 THEN G0SUB 31 
OsGOSUB 4O0;G0SUB 430;S1=SP:G0T0 460 


160 PT!=PT!+25:DRAW"BM112,184":G*=USR4< 
STR$(PT!)) 

170 IF 6=11 THEN PT!=PT!+A*1001G$=USR4( 
STR$(PT!));N=N+5:BL=BL+1;A=A+1:ST=ST+ls 
F=0:SP=.95#SP;S1=SP:G0SUB 380:G0SUB 430 
:G0T0 490 

180 S0UND 7,56:S0UND 8,9;S0UND 9,9 
190 FOR 1=240 TO 0 STEP -ISsSOUND 0,I;S 
0UND 2,1;NEXT 

200 S0UND 8,0:SQUND 9,0:S0UND 7,7 
210 F=F+1:S1=SP 

220 J=INT(28*RND(1))+32*INT <19&RND(2)) + 
6210 

230 IF VF’EEK( J-32) OR VF'EEK(J+32) OR VP 
EEK(J+l) OR VPEEK<J—1) OR VPEEK(J) THEN 
220 

240 X=F MOD 10+1 sIF F=N THEN X=ll 
250 VPOKE J,X 

260 J=PEEK(TL)+256*PEEK(TL+1>:J=J+2;P0K 
E TL, J MOD 256:F'0KE TL+1,J\256 
270 PT! =F'T! +5: DRAW " BM112,184 " ; 6$=USR4 < S 
TR$(PT!)):TIME=0 

280 J=USR1(0);J=PEEK(TL)+256*PEEK(TL+1) 
290 Q=PEEK(TB+J)+256*PEEK(TB+1+J):PQKE 
TB+1,P\256:P0KE TB,P MOD 256 
300 FOR 1=0 TO SI sNEXT:G0T0 130 
310 ’LOS BANDOS 

320 I = (P MOD 32)*8sJ=((P-6144)\32)*811 = 
I+SGN(127-1) * 12:VF'OKE P,R+12 
330 PUTSPRITE 0,(I,J),11:PUTSPRITE 1,(1 
,J+16>,11 

340 PUTSPRITE 2,(1+16,J),11:PUTSPRITE 3 
,(1+16,J+16),11 

350 S0UND 7,7:FOR 1=10 TO 240 STEP 2;SO 
UND 8,RND(I)*8+2:S0UND 6,I+RND(I)*20-10 
:NEXT:SDUND 8,0 

360 FOR 1=0 TO 3:PUTSF'RITE I,(0,0),0;NE 
XT I 

370 RETURN 
380 • 

390 S0UND 7,56:PLAY"VI0T1BOL1604CDEDER8 
05CDEFDEFR806CDEFGDEFG";F0R 1=0 TO 4000 
; NEXT 

400 I =PEEK (T2) +256*PEEK (T2+1) : J=F'EEK (TL 
)+256*PEEK(TL+1) 

410 IF J)I THEN P0KE T2,PEEK(TL);P0KE T 
2+1,PEEK(TL+1) 

420 S0UND 7,7:RETURN 
430 ! 

440 IF PT!> =E! THEN L=L+1:E!=E!+2500 
450 RETURN 
460 ’ 

470 L=L-1:IF L=-l THEN 810 
480 FOR 1=0 TO 2000:NEXT 
490 ’ 

500 SL=BL:IF BL)25 THEN SL=25 
510 I=USR3(0):T=150:S0UND 7,7 
520 FOR 1=6144 TO 6i75:VPOKE 1,29 s VF'OKE 
1+704,29:NEXT:F0R 1=6175 TO 6847 STEP 
32: VPOKE I, 29 s VF'OKE I+ 1,29 s NEXT 
530 DRAW"BM8, 184":G$="AKT SCORE 

"+LEFT®(STRING®(L,44),7):G®=USR4< 
G$) 

540 DRAW"BM32,184":G$=USR4(STR®(A)) 

550 DRAW'BMl12,184":G$=USR4(STR®(PT!)) 
560 ’ 

570 FOR 1=0 TO 2*SL-2 STEP 2:P0KE I+TB, 

96+SL-I\2:F'0KE I+TB+1,25:NEXT 

580 POKE TL,2*SL-2:POKE TL+1,0 

590 VPOKE 6496+SL,13:F0R 1=6497 TO 6495 

+SL:VPOKEI,32:NEXT 

600 Q=6497:P=6496+SL 

610 IF ST=0 THEN 750 

620 FOR G=i TO ST:K=INT(RND(5)#3)+1:0N 









*--*•**- SNEAK-SNAKE **** 


K 60SUB 630,670,710:NEXTsGOTO 750 
630 FOR K=0 TO 1 

640 X=INT < RND(4 >*28)+2+32*<INT < RND(3)*9 
)+K*10+2)+6144 

650 FOR I=-2 TO 2sF0R J=-2 TO 2;IF VPEE 

K(X+I+J*32)=0 THEN NEXT J,I ELSE 640 

660 VPOKE X,26:NEXT:RETURN 

670 X=INT < RND < 4 > *28)+2+32*(INT < RND <3)*8 

)+INT(RND(2)*2)*10+2)+6144 

680 IF VPEEK(X) OR VPEEK(X+32) THEN 670 

690 FOR I=-2 TO 2:FOR J=-2 TO 3:IF VPEE 

K<X+I+J*32)=0 THEN NEXT J,I ELSE 670 

700 VPOKE X,27:VPOKE X+32,28:RETURN 

710 X=INT(RND(4)*27)+2+32*(INT(RND(3)*9 

)+INT(RND<1)*2)*10+2)+6144 

720 IF VPEEK(X) OR VPEEK(X+1) THEN 710 

730 FOR I=-2 TO 3:F0R J=-2 TO 2:IF VPEE 

K(X+I+J*32)=0 THEN NEXT J,I ELSE 710 

740 VPOKE X,30:VPOKE X+l,31:RETURN 

750 > 

760 J=INT(28*RND(1))+32*INT(19*RND< 2)) + 
6210:IF VPEEK(J) OR VPEEK(J-l) OR VPEEK 
(J+l) THEN 760 

770 X=I MOD 10+1:IF F=N THEN X=ll 
780 VPOKE J,X 

790 SQUND 7,56:PLAY"V306L16T150ABABGFE6 
DCBAGEFDFEFEDC ", 11 V705L16T150ABAB6FEGDCB 
AGEFDFEFEDC" 

800 FOR 1=0 TO 2500:NEXT:R=1:S0UND 7,0: 
TIME=0:G0T0 130 
810 ’ 

820 IF PT!>PH! THEN PH!=PT! 

830 SOUND 7,56:SQUND 9,10:VP0KE P,R+12 

840 J=TB+PEEK(TL)+PEEK(TL+1)*256 

850 FOR I=J TO TB STEP -2 

860 VPOKE PEEK(I)+256*PEEK(I+1),59:SOUN 

D 2,255/<J-TB)*<J-I) 

870 NEXT:SOUND 9,0 
880 FOR 1=0 TO 3000:NEXT 
890 I=USR3<0) 

900 DRAW"BM88,16":G$="HIGH "+STR$(PH!): 
G$=USR4(6$> 

910 DRAW"BM80,24" :G$="SCORE "+STR$(PT!) 
:G$=USR4CG$) 

920 DRAW"BM96,32":G$="KROP"+STR$(1+(PEE 
K(T2)+256*PEEK(T2+1))/2):G$=USR4<G$) 

930 DRAW"BM32,48":G$=USR4("TRYK SKYD PZ 
JOYSTICKEN") 

940 GOSUB 1250:X=0 

950 GOSUB 1290:X=X+1:IF STRIG<JS)=0 AND 
X<1000 THEN 950 ELSE IF X=1000 THEN 11 
10 

960 ’ 

970 FOR 1=6144 TO 6175:VPOKE I,11:VP0KE 
1+736,11:NEXT:FOR 1=6175 TO 6879 STEP 
32:VPOKE I,11:VP0KE I+1,11:NEXT 
980 G$=INKEY$:IF G$>"" THEN 980 
990 DRAW"BM24,48":G$=USR4("ANTAL XKLE 
: >? < ") 

1000 DRAW"BM160,40":G$=USR4(";") 

1010 DRAW 11 BM24,56" :6$=USR4( "O TIL 5 \" 

1020 G$=INKEY$:IF 6$<"O" OR 6$)"5" THEN 
1020 ELSE ST=VAL(G$):DRAW"BM112,56";G$ 
=USR4(HEX$(ST)) 

1030 DRAW"BM24,72":G$=USR4("HASTIGHED") 
1040 DRAWBM24,80" :G$=USR4( "OXLANGSOM T 
IL 5\HURTIG V') 

1050 G$=INKEY$sIF G$<"O" OR G$>"5" THEN 
1050 ELSE SP=VAL(G$):DRAW"BM232,80":G$ 
=USR4(HEX$(SP)):SP=180-SP*30:S1=SP 
1060 DRAW"BN24,96":G*=USR4("KR0PSLXN6DE 
@@@@@@@@@-") 


1070 DRAW"BH24,104":G$=USR4("1\K0RT TIL 
5NLANG \") 

1080 6$=INKEY$:IF G$<"1" OR G$>"5" THEN 
1080 ELSE BL=VAL(G$):DRAW"BM192,104":G 
$=USR4(HEX$(BL)):BL=BL*4 
1090 » 

1100 F=0:N=1O:A=1:L=4:E!=2500:PT!=0:GOT 
O 490 

1110 »TITEL 
1120 I=USR3(0) 

1130 DRAW"BM32,16":G$=USR4("+ SNEAK 
S N A K E +"> 

1140 DRAW"BM40,32":G$=USR4("SNIG DIG RU 
NDT I HAVEN OG SPIS FRUGTERN 

E3 ") 

1150 DRAW"BM56,56":G$="! "+CHR$(34)+" # 
$■/.&(’ < ) * ?l :G$=USR4(G$) 

1160 DRAW"BM64,72":G$=USR4(" SPIS TILSI 
DST +"> 

1170 DRAW"BM24,88":G$=USR4("UNDGZ DEN F 
ORDOMTE ; MUR OG DE XKLE3333 

3 < ) ? : ") 

1180 DRAW"BM24,112":6$=USR4("DU HAR KUN 
LOV TIL AT BANDE 5 GANGE3 

SZ ER DET UD3") 



u i ur ix x » L.U« \ 4.W« j * * ___ 

1200 DRAW"BM24,144":G$=USR4("DU FZR EN 
EKSTRA CHANCE HVER 2500 POINT3" 

1210 DRAW"BM32,168":G$=USR4<"TRYK SKYD 
PZ JOYSTICKEN") 

1220 GOSUB 1250 

1230 GOSUB 1290:IF STRI6(JS)=0 THEN 123 

1240 FOR 1=0 TO 3:PUTSPRITE I,(0,0),0:N 
EXT: I=USR3(0) :60T0 960 
1250 SL=30:DRAW"BM8,0":G$=STRING$(SL, 64 
)+"-":G$=USR4(G$) 

1260 FOR 1=0 TO 2*SL-2 STEP 2:P0KE I+TB 
,SL-I\2:P0KE I+TB+1,24:NEXT 
1270 POKE TL,2*SL-2:P0KE TL+1,0 
1280 Q=6145:P=6144+SL:R=1:RETURN 
1290 VPOKE P,32:P=P+R(R):VPOKE P,R+12:V 
POKE Q,0: IF P=6144 OR P=6175 OR F>=6880 
OR P=6911 THEN R=R+1:IF R=4 THEN R=0 
1300 J=USR1(0):J=PEEK(TL)+256#PEEK(TL+1 
):Q=PEEK(TB+J)+256*PEEK(TB+1+J >:POKE TB 
+1,P\256:PQKE TB,P MOD 256:JS=JS+1:IF J 
S>2 THEN JS=0 
1310 RETURN 
1320 J 

1340 CLEAR 200,£<HD000:DEFINT A-Z:DIM R( 
3):J=RND(-TIME) 

1350 DATA -32,1,32,-1 

1360 RESTQRE 1350:FOR 1=0 TO 3:READ V:R 
(I)=V:NEXT 

1370 DEFUSR4=&HD006:DEFUSR1=&HDOOO:DEFU 

SR3=&HD003:DEFUSR5=&HD009:TB=&HD100:TL= 

&HDOOC:T2=&HD00E 

1380 COLOR 10,1,1:SCREEN 2,2,0 

1390 DATA,3,28,32.65,153,164,170,144,13 

7.64.155.175.182.157.136.. 247.8.227.2.5 
1 149,228,,182,,97,242.84,165,84 

1^00 i)ATAUl, 1&$, 138.144,147,71,68,68,6 
7,37,34,34,37,32 16,15,18,65,80.21,194, 
2^9,144,14^.9>,2i1,160,32,34,4.10,241 
14l6 DAtA,2^8,^,128,68,196,10,145,2,192 

,22,230,61224 22,208,,,252,2,1,133,137, 

17,1,66! 17,85,57,85,17,65 _ 4 

14 io DAtA3i,1^9.i,7,14,28,56,48,,158,14 

6.146.243.. 12.243.162.66.130.130.194.2, 
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1430 RESTORE 1390:FOR 1=0 TO 3;G$="":F0 
R J=0 TO 31:READ V:G$=G$+CHR$<V):NEXT:S 
PRITE$(1)=G$:NEXT 
1440 GOSUB 1480 

1450 POKE T2,0:P0KE T2+1,0:POKE TL.OrPO 
KE TL+1,0 

1460 X=USR3(0):X=USR5(0) 

1470 GOTO 1110 
1480 ’ 

1490 RESTORE 1560:J=19120 
1500 FOR I7.=&(HD000 TO &HDOAE 
1510 READ X$:POKE I'/., VAL< "&H"+X$> 

1520 J=J-VAL("S(H" + X$)-1:NEXT 17. 

1530 IF J THEN PRINT"DATAFEJL!":STOP 
1540 ’ 

1550 » 


1560 DATA C3,10,DO,C3,1F,DO,C3,7E 
1570 DATA DO,C3,36,DO,00,00,00,00 
1580 DATA 21,00,Dl,ED,4B,OC,DO,09 
1590 DATA 5D,54,13,2B,ED,B3,C9,21 
1600 DATA 00,58,F3,7D,D3,99,7C,D3 
1610 DATA 99,01,00,03,3E,00,D3,98 
1620 DATA OB,79,BO,20,F7,C9,F3,06 
1630 DATA 03,11,00,00,C5,D5,21,00 
1640 DATA Dl,01,00,02,CD,6A,DO,Dl 
1650 DATA 21,00,08,19,EB,Cl,10,EC 
1660 DATA 06,03,11,00,20,C5,D5,21 
1670 DATA 00,D3.01.00,02,CD,6A,DO 
1680 DATA Dl,21,00,08,19,EB,Cl,10 
1690 DATA EC,C9,7B,D3,99,7AjF6,40 
1700 DATA D3,99,18,00,7E,D3,98,23 
1710 DATA OB,79,BO,20,F7,C9,23,23 
1720 DATA 5E,23,56,3A,B7,FC,CB,3F 
1730 DATA CB,3F,CB,3F,4F,06,00,2A 
1740 DATA B9,FC,26,00,29,29,09,F3 
1750 DATA 7D,D3,99,7C,F6,53,D3,99 
1760 DATA EB,46,23,5E,23,56,1A,D6 
1770 DATA 20,03,93,13,10,F8,C9 
1780 ’ 

1790 RESTORE 1880 

1800 FOR 1=0 TO 511 s READ X:POKE I+&HD10 
O,X:NEXT I 
1810 I=8(HD300 
1820 READ X 

1830 IF X<0 THEN READ R:FOR J=1 TO -X*8 
2POKE I,R:1 = 1 + 1:NEXT 

1840 IF X> =0 THEN POKE I,X:FOR J=1 TO 7 
:1 = 1 + 1:READ X:POKE I,X:NEXT s 1 = 1 + 1 
1850 IF I< &HD500 THEN 1820 
1860 RETURN 
1870 ’ 

1880 DATA ,,,,,,, 

1890 DATA 102,231,126,255,253,251,126,2 
4 

1900 DATA 96,152,36,18,34,119,119,34 
1910 DATA 102,189,90,181,171,86,103,24 
1920 DATA 90,231,118,251,251,251,247,11 
O 

1930 DATA 108,16,124,170,84,52,24,4 
1940 DATA 7,8,24,60,124,94,110,60 
1950 DATA 120,36,120,220,239,118,56,28 
1960 DATA 32,112,120,240,248,124,127,30 
1970 DATA 108,146,124,170,84,170,84,56 
1980 DATA 12,16,103,254,190,190,92,56 
1990 DATA 24,56,112,104,10,46,28,3 
2000 DATA 16,56,124,146,146,254,84,124 
2010 DATA 56,228,166,255,166,228,56, 
2020 DATA 124,84,254,146,146,124,56,16 
2030 DATA 28,39,101,255,101.39,28, 

2040 DATA ,124,198,206,214,230,198,124 
2050 DATA ,120,24,24,24,24,24,126 
2060 DATA ,124,198,12,24,48,96,254 
2070 DATA ,124,198,6,28,6.193,124 
2080 DATA ,28,60,108,204,254,12,12 


,254,192,252,6,6,198,124 
,56,96,192,252,198,193,124 
,254,198,6,12,24,24,24 
,124,193,198, 124,198,193,124 
,124,198,198,126,6,12,56 
60,126,126,129,90,24,56,48 
60,102,195,195,102,60,102,129 
195,189,129,189,139,157,65,62 

254.254.254.. 239.239.239, 
74,106,86,66,66,66,34,28 
,96,216,39,97,39,120,224 
124,222,190,190,254,254,124, 

,124,198,198,254,193,198,198 
,252,102,102,124,102,102,252 
,124,198,192,192,192,198,124 
,252,102,102,102,102,102,252 
,254,192,192 248192 192 254 
,254,192,192,243,192,192,192 
,124,198,192,206,198,198,124 
,193,198,198,254,193,198,198 
,60,24,24,24,24,24,60 
,30,12.12,12,12,204,120 
,198,204,216,240,216,204,198 
,192,192,192,192,192,192,252 
,198,238,214,214,198,198,198 
,198,230,214,206,198,193,193 
,124,193,198,198,198,198,124 
,252,102,102,124,96,96,96 
,124,198,198,198,222,204,118 
,252,102,102,124,120,108,102 
,124,198,192,124,6,198,124 
,126,24,24,24,24,24,24 
,198,198,198,193,198,198,124 
,198,193,198,108,108,108,56 
,198,193,193,214,214,238,198 
,126,216,216,254.216,216,222 
.102,102,102,60,24.24,24 

56.. 124.198.198.254.198.193 
124,146,146,108,186,84,68,170 
,,,126 126 

193,201,145,145,159,159, 145,1 

DATA 193,193,193,193,193,97,97,97 
DATA 33,33,177,177,177,177,177,177 
DATA 33,33,97,11 i,111,i 11,111,97 
DATA 192,192,209,209,209,209,209,2 

DATA -1,193 
DATA ~1,161 

DATA 49,49,209,209,209,209,209,209 
DATA 177,177,97,97,97,97,97,97 
620 DATA 33,33,145,145,145,145,145,145 
88 S8T8 H.fis81,él,3i,33,33,fa 
DATA -10,33 

DATA 97,97,97,110,225,225,225,225 
DATA -2,225 
DATA -1,110 
DATA -2,33 
DATA -1,129 
DATA -26,33 
DATA -1,225 
DATA -4,161 


2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

45 

2540 

2550 

2560 

2570 

09 

2580 

2590 

2600 

2610 

2620 

2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
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SNEAK-SNAKE -M-K-K-M- 


SVI Version; 

100 » SNEAK SNAKE 
110 ’ 

120 GOTO 1320 

130 X=STICK(JS>:IF X>0 AND X\2<X/2 AND 
R(R) < >-R< (X-l) \2) AND X\2<>R THEN SOLIND 
0,10+R#40:SOUND 8,7 :R'=< X-l) \2:S1 = .9*S1 
:SOUND 8,0 

140 G-VPEEK(P+R(R)) :VPOKE P,32:P=P+R(R> 

: VPOKE P.R+12;VPOKE 0,0 
150 IF 6=0 AND TIME)T THEN 260 ELSE IF 
G=0 THEN 280 ELSE IF 8)25 THEN GOSUE 31 
O:GOSUE 400:GOSUE 430s SI=SPs GOTO 460 
160 PT!=PT!+25:LOCATE 112,184:G$=USR4<S 
TR$ (F'T! )) 

170 IF G=11 THEN PT!=PT!+A*100:6$=USR4( 
STR$(PT!));N=N+5:BL=BL+1:A=A+1:ST=ST+1: 
F=0:SP=.95*SP:S1=SP:GOSUE 380;GOSUE 430 
:GOTO 490 

180 SOUND 7,56:S0UND 8,9:S0UND 9,9 
190 FOR 1=240 TO O STEP -ISsSOUND 0,I:S 
OUND 2,IsNEXT 

200 SOUND 8,0:SOUND 9,O;SOUND 7,7 
210 F=F+1:S1=SP 

220 J=INT(28*RND(1))+32*INT(19*RND(2)) + 
6210 

230 IF VPEEKlJ-32) OR VPEEK(J+32) OR VP 
£EK(J+l) OR VPEEK(J-l) OR VPEEK(J) THEN 
220 

240 X=F MOD 10+1:IF F=N THEN X=ll 
250 VPOKE J,X 

260 J=PEEK< TL)+256*PEEK(TL+1):J=J+2:POK 
E TL,J MOD 256:POKE TL+1,J\256 
270 PT!=PT!+5:LOCATE 112,184:6*=USR4(ST 
R*(PTi>):TIME=0 

280 J=USRi(O):J=PEEK(TL)+256*PEEK(TL+1) 
290 Q=PEEK < TB+J)+256*PEEK < TE+1+J):POKE 
TE+1,PX256:POKE TB,F' MOD 256 
300 FOR 1=0 TO SI:NEXT:GOTO 130 
310 ’LOS BANDOS 

320 I = (P MOD. 32)*8:J=((P-6144)\32)*8:1= 
I+SGN<127—1)*12:VPOKE P,R+12 
330 PUTSPRITE O,<I,J),11:PUTSPRITE 1,(1 
,J+16),11 

340 PUTSPRITE 2,(1 + 16,J),11 sPUTSPRITE 3 
,(1+16,J+16),11 

350 SOUND 7,7:FOR 1=10 TO 240 STEP 2;SO 
UND 8,RND(I)*8+2:SOUND 6,I+RND(I>*20-10 
:NEXT:SOUND 8,0 

360 FOR 1=0 TO 3tPUTSPRITE I,(0,0),0:NE 
XT I 

370 RETURN 
380 ’ 

390 SOUND 7, 56: F'LAY " V1 OT 1 SOL 16Q4CDEDER8 
05CDEFDEFR806CDEFGDEFG":FOR 1=0 TO 5500 
:NEXT 

400 I =PEEK (T2) +256*F'EEK (T2+1) : J=PEEK (TL 
)+256*PEEK(TL+1) 

410 IF J)I THEN POKE T2,F'EEK(TL) :POKE T 
2+1, F'EEK (TL+1) 

420 SOUND 7,7;RETURN 
430 ’ 

440 IF PTI>=E! THEN L=L+1:E!=E!+2500 
450 RETURN 
460 « 

470 L=L-1:IF L=-l THEN 810 
480 FOR 1=0 TO 2000:NEXT 
490 ’ 

500 SL=BL;IF BL>25 THEN SL=25 
510 I=USR3(O):T=150:SOUND 7,7 
520 FOR 1=6144 TO 6175:VPOKE I,29:VPOKE 
1+704,29:NEXT:FOR 1=6175 TO 6847 STEP 
32:VPOKE I,29:VPOKE I+1,29:NEXT 


LOCATE 32,184:6$=USR4(STR$(A)) 
LOCATE 112,184:G$=USR4(STR$(PT!)) 


530 LOCATE 8,184:G$="AKT SCORE 

"+LEFT$(STRING$(L,44),7):G$=USR4(G 

$) 

540 
550 
560 

570 FOR 1=0 TO 2*SL-2 STEP 2:POKE I+TB, 

96+SL-I\2:POKE I+TB+1,25:NEXT 

580 POKE TL,2*SL~2:POKE TL+1,O 

590 VPOKE 6496+5L,13:FOR 1=6497 TO 6495 

+SL:VPOKEI,32:NEXT 

600 0=6497 :F‘=6496+SL 

610 IF ST=0 THEN 750 

620 FOR G=1 TO ST:K=INT(RND(5)*3)+1:0N 

K GOSUE 63Q,670,710:NEXT:GOTO 750 

630 FOR K=0 TO 1 

640 X=INT(RND(4)*28)+2+32*(INT(RND(3)*9 


)+K*10+2)+6144 

650 FOR I=-2 TO 2:FOR J=-2 TO 2:IF VF'EE 

K(X+I+J*32)=0 THEN NEXT J,I ELSE 640 

660 VPOKE X,26:NEXT:RETURN 

670 X=INT(RND(4)*28)+2+32*(INT(RND(3)*8 

) + INT(RND(2)*2)*10+2)+6144 

680 IF VPEEK(X) OR VPEEK(X+32> THEN 670 

690 FOR I=-2 TO 2: FOR J=~2 TO 3-.IF VPEE 

K(X+I+J*32)=0 THEN NEXT J,I ELSE 670 

700 VPOKE X,27:VPOKE X+32,28:RETURN 

710 X=INT(RND(4)*27)+2+32*(INT(RND(3)*9 

)+INT(RND(1)*2)*10+2)+6144 

720 IF VPEEK(X) OR VPEEK(X+1> THEN 710 

730 FOR I=-2 TO 3:F0R J=-2 TO 2sIF VPEE 

K(X+I+J*32)=0 THEN NEXT J.I ELSE 710 

740 VPOKE X,30:VPOKE X+l,31:RETURN 

750 ’ 

760 J=INT(28*RND(1))+32*INT(19*RND(2))+ 
6210:IF VPEEK(J) OR VPEEK(J-l) OR VPEEK 
(J+l) THEN 760 

770 X=I MOD 10+1:IF F=N THEN X=ll 
780 VPOKE J,X 

790 SOUND 7,56:PLAY"V806L16T150ABABGFE6 
DCBAGEFDFEFEDC","V705L16T150ABABGFE6DCB 
AGEFDFEFEDC" 

800 FOR 1=0 TO 5500:NEXT:R=1:SOUND 7,0: 
TIME=0:GQT0 130 
810 ’ 

820 IF PT!)PH! THEN F’H!=PT! 

830 SOUND 7,56:SOUND 9,10:VPOKE P,R+12 

840 J=TE+PEEK(TL)+PEEK(TL+1)*256 

850 FOR I=J TO TB STEP -2 

860 VPOKE PEEK(I)+256*PEEK(I+1),59:SOUN 

D 2,255/(J-TB)*(J-I) 

870 NEXT:SOUND 9,0 
880 FOR 1=0 TO 3000:NEXT 
890 I=USR3(0) 

900 LOCATE 88,16:G$="HIGH "+STR$(PH!) :G 
$=USR4(G$> 

910 LOCATE 80, 24:G$="SCORE "+STR$(F'T!) : 
G$=USR4(G$) 

920 LOCATE 96,32:G$="KROP"+STR*(1+(PEEK 
(T2)+256*PEEK(T2+1))/2):G$=USR4(G$) 

930 LOCATE 32,48:G$=USR4("TRYK SKYD PZ 
JOYSTICKEN") 

940 GOSUE 1250:X=0 

950 GOSUE 1290:X=X+1:IF STRIG(JS)=0 AND 
X<1000 THEN 950 ELSE IF X=1000 THEN 11 
10 

960 » 

970 FOR 1=6144 TO 6175:VPOKE I,11:VP0KE 
1+736,11:NEXT:FOR 1=6175 TO 6879 STEP 
32:VPOKE I,11:VP0KE I+1,11:NEXT 
980 6$=INKEY$:IF G$)"" THEN 980 
990 LOCATE 24,48;G$=USR4("ANTAL XKLE : 
>? ( ") 
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1000 LOCATE 160,40:6$=USR4( " : ") 

1010 LOCATE 24,56:G$=USR4("0 TIL 5 \") 

1020 G$=INKEY$:IF G$< "0" OR G$>"5" THEN 
1020 ELSE ST=VAL(G$):LOCATE 112,56:G$= 
USR4(HEX$(ST)) 

1030 LOCATE 24,72:G$=USR4("HASTIGHED") 
1040 LOCATE 24,S0:G$=USR4<"OYLANGSOM TI 
L 5\HURTIG \") 

1050 G$=INKEY$:IF G$<"O" OR G$>"5" THEN 
1050 ELSE SP=VAL(G$):LOCATE 232,30:G$= 
USR4(HEX$(SP)): SP= 180-SP#30:S1=SP 
1060 LOCATE 24,96:G$=USR4("KROPSLXNGDE 

1070 LOCATE 24,104:G$=USR4("1\KQRT TIL 
5XLANG \"> 

1080 G$=INKEY$:IF G$<"1" OR G$>"5" THEN 
1080 ELSE BL=VAL(G$):LOCATE 192,104:6$ 
=USR4(HEX$(BL)):BL=BL*4 
1090 ’ 

i 100 F=0:N=10:A=1:L=4:E!=2500:PT!=0:GOT 
O 490 

1110 ’TITEL 
1120 I=USR3(0) 

1130 LOCATE 32,16:G$=USR4("+ S N E A K 
S N A K E +") 

1140 LOCATE 40,32:G$=USR4("SNIG DIG RUN 
DT I HAVEN OG SPIS FRUGTERNE 

3") 

1150 LOCATE 56,56:6$="! "+CHR$< 34) +'* # 

$ 7. & ’ ( ) *" :G$=USR4(G$) 

1160 LOCATE 64,72:G$=USR4<" SPIS TILSID 
ST +") 

1170 LOCATE 24,88;G$=USR4("UNDGZ DEN FO 
RDOMTE ; MUR OG DE XKLE33333 

< >? :") 

1180 LOCATE 24,112:G$=USR4<"DU HAR KUN 
LOV TIL AT BANDE 5 GANGE3 

SZ ER DET UD3") 

1190 PUTSPRITEO,(184,108),11:PUTSPRITE1 
,(184,124),11:PUTSPRITE2,(200,108),11:P 
UT5PRITE3,(200,124),11 
1200 LOCATE 24,144:G$=USR4<"DU FZR EN E 
KSTRA CHANCE HVER 2500 P0INT3") 

1210 LOCATE 32,168:G$=USR4("TRYK SKYD P 
Z JOYSTICKEN") 

1220 GOSUB 1250 

1230 GOSUB 1290:IF STRIG(JS)=0 THEN 123 
O 

1240 FOR 1=0 TO 3:PUTSPRITE I,(0,0),0:N 
EXT:I=USR3(0):GOTO 960 
1250 SL=30:LOCATE 8,0:6$=STRING$(SL,64> 
+"—»:6$=USR4(G$) 

1260 FOR 1=0 TO 2*SL-2 STEP 2:P0KE I+TB 
,SL-I\2:P0KE I+TE+1,24:1MEXT 
1270 POKE TL,2+SL-2:POKE TL+1,0 
1230 0=6145;P=6144+SL:R=1:RETURN 
1290 VPOKE P,32:P=P+R(R>:VPOKE P,R+12:V 
POKE 0,O:IF P=6144 OR P=6175 OR P=6880 
OR P-6911 THEN R=R+1:IF R=4 THEN R=0 
1300 J=USR1(0):J=PEEK<TL)+256*PEEK(TL+1 
):0=PEEK(TB+J)+256*PEEK(TB+l+J):POKE TB 
+1,P\256:P0KE TB,P MOD 256:JS=JS+1:IF J 
S)2 THEN JS=0 
1310 RETURN 
1320 » 

1330 ’INIT 

1340 CLEAR 200,&HD000:DEFINT A-Z:DIM R( 
3):J=RND(-TIME) 

1350 DATA -32,1,32.-1 

1360 RESTORE 1350:FOR 1=0 TO 3:READ V:R 
(I)=V:NEXT 

1370 DEFUSR4=&HD006;DEFUSR1=&HD000:DEFU 
SR3=&HD003:DEFUSR5=&HD009:TB=&HD100:TL= 
&HDOOC: T2=&HD00E 


1380 CLICKOFF:COLOR 10,1,1:SCREEN 1,2 
1390 DATA,3,28,32,65,153,164,170,144,13 

7.64.155.175.182.157.136.. 247.3.227.2.5 

1.149.228.. 182..97.242.84.165 84 

1400 DATA161,169,138,144,147,71,68,68,6 

7,37,34,34,37,32,16,15,18,65,80 21 194, 

229.144,144.97,211,160,32,34,4,10,241 

1410 DATA,248,7,128.68,196,10,145 2,192 

,22,230,6,224,22,208,,,252,2,1,133,137, 

17,1,66 17,35 57 85,17 65 

1420 DATA36,199.2,7,14,28,56,48,,153,14 

6.146.243.. 12.243.162.66.130.130, 194,2, 
2,12,2,49,65,65,194,12,16,224 

1430 RESTORE 1390:FOR 1=0 TO 3:G$="":F0 
R J=0 TO 31tREAD V:G$=6$+CHR$(V):NEXT:S 
PRITE$(I)=6$:NEXT 
1440 GOSUB 1480 

1450 POKE T2,OsPOKE T2+1,0:POKE TL,0:P0 
KE TL+1,0 

1460 X=USR3(0>:X=USR5(0) 

1470 GOTO 1110 
1480 ’ 

1490 RESTORE 1560:J=13539 
1500 FOR 17.=&HDOOO TO &HDOAE 
1510 READ X$:POKE 17., VAL("&H"+X$) 

1520 J=J-VAL( "S<H"+X$5 -1 :NEXT 17. 

1530 IF J THEN PRINT"DATAFEJL!":STOP 
1540 ’ 

1550 ’ 

1560 DATA C3,10,DO,C3,IF,DO,C3,7E 
1570 DATA DO,C3,36,DO,00,00,00,00 
1580 DATA 21,00, D1,ED,4B,OC,DO,09 
1590 DATA 5D,54,13,2B,ED,B8,C9,21 
1600 DATA 00,58,F3,7D,D3,81,70,D3 
1610 DATA 31,01,00,03,3E,00,D3,80 
1620 DATA OB, 79, BO, 20, F7, C9, F3,06 
1630 DATA 03,11,00,00,C5,D5,21,00 
1640 DATA Dl,01,00,02,CD,6A,DO,Dl 
1650 DATA 21,00,08,19,EB,Cl,10,EC 
1660 DATA 06,03,11,00,20,C5,D5,21 
1670 DATA 00,D3,Oi,00,02,CD,6A,DO 
1680 DATA Dl,21,00,08,19,EB,Cl,10 
1690 DATA EC,C9,7B,D3,31,7A,F6,40 

B?8 

1720 DATA 5E,23,56,3A,04,FA,CB,3F 
1730 DATA CB,3F,CB,3F,4F,06,00,2A 
1740 DATA 03,FA,26,00,29,29,09,F3 
1750 DATA 7D,D3,81,7C,F6,53,D3,81 
1760 DATA EB,46,23,5E,23,56,1A D6 
1770 DATA 20,D3,80,13,1O,F8,C9 
1780 ’ 

1790 RESTORE 1880 

1800 FOR 1=0 TO 511:READ X:POKE I+&HD10 
O,X:NEXT I 
1810 I=&HD300 
1 P»20 READ X 

1830 IF X(0 THEN READ R:FOR J=1 TO -X*8 
:POKE I,R:1=1+1:NEXT 

1840 IF X> =0 THEN POKE I,X:FOR J=1 TO 7 
: 1=1 + 1 :READ X:F'OKE I, X : NEXT: 1 = 1 + 1 
1350 IF K&HD500 THEN 1820 
1860 RETURN 
1870 ’ 

1880 DATA ,,,,,,, 

1890 DATA 102,231,126,255,253,251,126,2 

4 

1900 DATA 96,152.36,18,34,119,119,34 
1910 DATA 102.189,90,131,171,36,108,24 
1920 DATA 90,231,118,251,251,251,247,11 
O 

1930 DATA 108,16,124,170,84,52,24,4 
1940 DATA 7,3,24,60,124,94.110,60 
1950 DATA 120,36,120,220,239,118,56,28 
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1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

237.0 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

45 

2540 
50 


09 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 


32,112,120,240,248,124,127,30 

108.146.124.170.84.170.84.56 

12.16.108.254.190.190.92.56 
24,56,112,104,10,46,28,8 
16,56,124,146.146,254,84,124 
56,228,166,255,166,228,56, 
124,84,254,146,146,124,56,16 
28,39,101,255,101,39,28, 

,124,193,206,214,230,193,124 
,120,24,24,24,24,24,126 
,124,198,12,24,48,96,254 
,124,198,6,28,6,198,124 
,28,60,108,204,254,12,12 
,254.192,252,6,6,193,124 
,56,96,192,252,193,198,124 
,254,193,6,12,24,24,24 
,124,193,193,124,193,198,124 
,124,198.198,126,6,12,56 
60,126,126,129,90,24,56,43 
60,102,195,195,102,60,102,129 
195,139,129,189,189,157,65,62 

254.254.254.. 239.239.239, 

74,106,86,66,66,66,34, 23 
,96,216,39,97,39,120,224 
124,222,190,190,254,254,124, 

,124,198,198,254,198,198,19§ 
,252,102,102,124,102,102,252 
,124,193,192,192,192,193,124 
,252,102,102,102,102,102,252 
,254,192,192,248,192,192,254 
,254,192,192,248,192,192,192 
,124,198,192,206,193,198,124 
,198,193,198,254,198,198,198 
,60,24,24,24,24,24,60 
,30,12,12,12,12,204,120 
,193,204,216,240,216,204,193 
,192,192,192,192,192,192,252 
,198,238,214,214,198,198,198 
,193,230,214,206,198,198,193 
,124 193,193,198,198,198,124 
,252,102,102,124,96,96,96 
,124,198,198,198,222,204,118 
,252,102,102,124,120,108,102 
,124,198,192,124,6,198,124 
,126,24,24,24,24,24,24 
,198,193,198,193,198,198,124 
,198,198,193,108,108,108,56 
,198 198 198,214,214,238,198 
,126,216,216,254,216,216,222 
,102,102,102,60,24,24,24 

56.. 124.198.193.254.198.198 
124,146,146,103,186,84,68,170 
,,,126,126.,, 

,,,,,,56,56 
,48,48,48,,,, 

1 1 » »1 1 1 
-1,17 

193,201,145,145,159,159,145,1 

DATA 193,193,193,193,193,97,97,97 
DATA 33,33,177.177.177.177.177.177 

DATA -1,193 
DATA -1,161 

DATA 49,49,209,209,209,209,209,209 
DATA 177.177,97,97,97,97,97,97 
DATA 33,33,145,145,145,145,145,145 
DATA 31,31,31,31,33,33,33,33 
DATA -4,145 
DATA -10,33 

DATA 97,97,97,110,225,225,225,225 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


2670 DATA -2,225 
2680 DATA -1,110 
2690 DATA -2,33 
2700 DATA -1,129 
2710 DATA -26,33 
2720 DATA -1,225 
2730 DATA -4,161 




PC BIB 


Så lakker det Imod enden som manden 
sagde da han hældte fernis ned af 
ryggen, året er snart omme. I den 
anledning er der et SUPER TILBUD til 
alle pc ejere. I anledningen af 
julen kan du købe 3 stk. disketter 
for kun 60,00 kr. incl. forsendelse 
! ! ! HVABEHAR der er da et tilbud der 
er til at føle på, så hvad venter du 
på ???. For fremtiden skal PC BIB 
indskrænke sig til en A4 side i 
bladet, så hvis du har lyst kan du 
bestille en liste over alt det 
software som er i PC BIB. Send en 
frankeret svarkuvert og modtag en 
udførlig liste på mere end 40 
disketter !!!. 


GIRO: 5993350 

Skriv hvilke programmer som du 
ønsker på bagsiden af girokortet. Du 
kan også sende en check sammen med 
din bestilling til: 

Henrik Larsen 
Banevolden 44, 21 
2500 Valby 
Danmark 
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Følgende programmer anbefales til 
den søde juetid: 

Diskette nr. 39: 

Sopwith, Pinball, Softporno 
adventure (kun for voksne), Pervert, 
Strip, Xwing. Denne diskette er 
simpelthen sprængfyldt med uartige 
ting og sager, du kommer umuligt til 
at kede dig i julen hvis du køber 
denne diskette. 

Diskette nr. 41: 

Sailing realtime arcade adventure. 
Du navigerer rundt i 
bermudatrekanten med din yacht. Du 
skal redde surfere og svømmere, men 
pas godt på for både hajer og 
mystiske kraftfelter lurer over det 
hele. Det kunne jo også blæse op, så 

pas godt på. Med dette hæsblæsende 
spil vil du aldrig have tid til 
andet. 


Diskette nr. 42: 

Wine. Er vinen drikkemoden, hvilken 
mad kan bruges sammen med min vin, 
hvad er der specielt ved dette 
vindistrikt, osv. alle disse 
spørgsmål og mange flere besvares i 
dette superprogram som jo nok er 
meget akuelt her i denne æde og 
drikke tid. 


Af spændende nyheder i næste nummer 
skal nævnes et program jeg lige har 
fået ind af døren, det er så nyt at 
jeg ikke har fået set på det endnu 
men det drejer sig om det 640K store 
DAN CAD 3-D som virker utroligt 
lovende, også er det på dansk. Men 
tålmodighed indtil januar. 



MASTERMIND 
AF KURT UON 


SURT 


10 KEY0FF:SCREEN0:WIDTH40 
20 VP0KE2048+(8*19)+3,16:VP0KE2048+(8*2 
0)+3,16 
30 CLS 
40 LI=8 

50 G0SUB80:G0SUB260:G0SUB490: G0SUB570 
60 IFJA$=“J"0RJA$="j"THEN30 
70 END 
80 ’ START 

90 PRINT’* HHMASTERHIN1 
***#*’ 

100 PRINT 

110 PRINT’Kan da gætte de FIRE FORSKELL¬ 
IGE citre’ 

120 PRINT’mellero 1 og 9, jeg har skjult 
herunder?’ 

130 PRINTTAB(2);"XWWWWWWWWWWWWY" 

140 PRINTTAB(2)}’T X X X X T ’;CHR$ 
(200);’ rigtigt ciffer.’ 

150 PRINTTAB(2);"TWWWWWWWWWWWWT ’;CHR* 
(203);* rigtig placering" 

160 FORI=1T014 

170 PRINTTAB(2);’T T B :NEXT 

180 PRINTTAB(2 >; 8 ZWUUUWWUUUUUUÆ" 

190 A* <1)=STR$(INT(RND(-TIME)*9)+1) 

200 A$(2)=STR$(INT(RND<-TIME)*9) + 1):IFA 
$ < 2)=A$(1)THEN200 

210 A$(3)=STR$(INT(RND(-TIME)*9)+1):IFA 
$ < 3) = A$ (1) 0RA$ (3) ~M (2) THEN210 
220 A$(4)=STR$(INT(RND(-TIME)*9)+1) 

230 IFA$(4)=A$(1)0RA$(4)=A$(2)0RA$(4)=A 
®<3)THEN220 

240 SK$=RIGHT$(A$(1), 1)+RIGHT${A$(2),1) 
+RIGHT$(A$<3),1)+RIGHT$(A$<4),1) 

250 RETURN 
260 ’ SPIL 

270 G0SUB300:G0SUB340:G0SUB410 
280 LI=LI + 1:IFSK$< >GT$ANDLI<20THEN260 
290 RETURN 
300 ’ INDTAST 

310 L0CATE0,22:PRINT'HVILKE FIRE CIFRE 
GÆTTER DU PA? 

320 L0CATE33,22:LINEINPUTGT$:GT=VAL(6T$ 

) 

330 IFLEN(GT$)< >4THEN310 
340 ’ KONTROL 
350 S0=0:HV=0 

360 FORI=1T04:F0RU=1T04:S$=MID$(SK$,I,1 
) 

370 IFS$=MID*(GT*,U,1)THENIFS$=MID$(GT$ 
,1,1)THENS0=S0+1:G0T0390 
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380 IFS$=MID$(GT$,U,1)THENHV=HV+i 

390 NEXTU,I 

400 RETURN 

410 ’ SVAR 

420 L0C ( ATE4,LI 

430 F0RI=1T04:PRINTMID$(GT$,I,1);" "J 
440 NEXT 

450 PRINTCHR$<29);"T"; 

460 IFGT$< >SK$ANDHV>0THENF0R1=1TOHV:PRI 
NTCHR$(200)}" ";:NEXT 

470 IFGT$< >SK$ANDS0>0THENF0RI=1T0S0:PRI 

NTCHR$<203);" ";:NEXT 

480 RETURN 

490 ’ SLUT 

500 L0CATE4,5 


520 NEXT 

530 PRINTCHR$(29)5"T";:LOCATEO,22 
540 IFLI>19ANDGT$< >SK$THENPRINT"Du gætt 
ede det IKKE. Her er de rigtige":G0T056 
0 

550 PRINT"* RIGTIGT i ";LI-8;CHR 
$(29);". forsøg * 

560 F0RR=1T01000:NEXT:RETURN 
570 ’ IGEN 

580 LOCATE,22:PRINTSPACE$(38):L0CATE5,2 
2 

590 PRINT"VIL DU PRØVE IGEN?"; 

600 JA$=INKEY$:IFJA$=""THEN600 

610 IFJA$< >"J"ANDJA$< >"j*ANDJA$< >*N"AND 

J A$< >"n"THEN600 
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en JulQt|avB v,i ;i, eornputerRn? 

- Her er wn stribe julegave ideer, som 
du vi I kumte g 1 v«*:!ee din computer med,, 

- b> du i tv av 3. om hvad du skal vmiqe? 
Så ring og få et råd mer) på vejen! 



. li i "■•sof f 

Devpae - nedste assernb 1 r-n.dinass, - 

moni tor, bånd 329, 

Devpac: 80 - tii.sk, som bånd version plus 
meget rnsru,„„, 598, 


- Acrfivi & i on 

Pitfall 11, H.LR.O,, Rast-finder ~ tre 
gode a read esp i 1 fra Act ivision t i 3. 
bundpris (pr. stk* ) 68.- 

. Gremlin 

Valkyr - Skyd Valkyrene sønder og sammen 
for at skaffe Xerylliurn til dit 
rumskib:? godt Galanteri; med tale 48.- 

Desolator . hurtigt defender, skyd på 

alt hvad der bevæger sig - eller som 
står stille ’ 56.-- 

Krackout - Break out m, bat og mange 
bolde i en ny udgave 129.- 

Death Wish 3 -Charles Bronson rydder op 
i New Yorks gader 129. - 


- HAL 

Hole in One Prof. bedste golf 277,,- 

Dunkshot - Basketball “ 215.- 

Hole in One Special - MSX2, bedste golf, 

2 set 18 huls baner, 18 golfkøller, 3 
spil-typer for 1/2 spillere, 295.- 


- Konarni 

Varnpire Kil ler - MSX2, Dracula er 


- Kuma 

Machine Code Tutor h Monitor' ~ forklarer 
ZBG maskinkodens opbygning og ud¬ 
førelse, efi hjælp * til ‘maskinkode 
begynderen 215. 

- Tasman 

Tasword MSX - godt tekstbehandling, op 
til 64 tegn/linie på skærm og printer, 
bp til 500 liniers tekst, kan kopieres 
over til brug på disk ' 215. 

Mus m. tegneprg. & optomekanisk mus, 
musen kan bruges til en del andre 
programmer 690. 

Canon VJ200 MSX joystik med to (sepe- 
rate) skydeknapper, Med sugekopper så 
deri kan stå fast selv ‘ kun 98, 


Disk e t t e r 

5.25" neutrale disketter, dobb. sidet 
beregnet til 360K; fx. til PC’ers, 
RU T 328 sir.. In «•!• I- 



Dynamits Dan -■ find vej qennem det 
gigantiske hus med de 1000 fælder 68.- 

- Ocean 

Arrny Hoves - kæmp dig frem til fjendens 
hovedkvarter i jeep, helikopter oq til 
fods 144.’- 


Alle priser er inkl, dansk moms. Der 
tages forbehold for trykfejl og pris¬ 
ændringer . GRATIS forsendelse ved forud¬ 
betaling med check/giro. Bestillinger 
under kr„ 100.- tillægges doq kr. 20. - 
ekspeditionsgebyr. 


- Ultimate 

Cyberun - the Crystal-ship, 68. ~ 

Master Games - Nightshade, Gunfright, 
Knight Lore og Alien 8? fire flotte 
Ultimate arc.adv. samlet 144. - 

~ U.S. Go1d 

10th Frame - bowling for i til 8 spil¬ 
lere,, med korrekte regler 144. - 

Ace of Aces - flyv et Mosquito bombefly 
til forskellige områder af Nazi¬ 
tysk land for at bombe ubåde, VI 
raketter og jernbanelinjer 144. - 


Ring 01 39 39 94 mellem 16-20 mandag til 
lørdag, eller send en check eller en 
giro på gironr. 345 96 32 med dine 
bestillinger. Oplys evt. telfefonnr. 

Salg til hele Skandinavien. Ved køb fra 
Sverige/Norge indbetal den danske pris 
på et postgiro-kort, og skriv hvad du 
ønsker på bagsiden. 

Datacraft - N.J. Fjords alle 20 - 
DK-1957 Frederiksberg C - tlf. 01 393994 



